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NEWS AND REVIEWS 


by Mike Dunn, Co-Editor 

We don't usually talk alot about our meetings of АСЕ, but the one last 
month was one of the best, ever! The people at Microbits, led by Kirt 
Stockwell and their head programmer, demonstrated some of the 
wonderful capabilities of the new 520ST. We saw amazing graphic 
demos from Atari, as well as the very high speed of this machine. We 
understand Sig Hartman from Atari will be delivering a truck load of the 
new STs when ready to the Portland Atari Club and our club “soon” at 
a special price. 

John Goodrich, a photograpy teacher at a local high school, 
demonstrated a truely "awesome" timer/darkroom controller which took 
him over a year to develop. It connects through the joy stick ports to 
a “black-box” controller, and controls the various equipment found in 
a darkroom. The menus, timers and control features were all of very 
professional quality — as nice as those found in programs by Synapase, 
etc, and has features way beyond my understanding both іп 
programming and in photography. Hopefully, John will write a series of 
articles on how he did it. 

As you may have noticed, we have been somewhat mixed up with our 
articles and program listings not appearing in the same issues. Our 
newsletter is put together by all "slave labor”, and many of us have busy 
professional lives. Different people are responsible for different aspects 
of the newsletter, and sometimes we don't discover our mistakes and 
lack of communication until we get the newsletter back from the printers. 
Sorry, but what do you expect from slave labor. . .? We do try, even 
though sometimes that's hard to believe. 

Denny and Ruth Hughes have taken care of the very thankless task 
of the mailing list for the last 2 or so years, but are unable to do so now. 
We all thank them for all the work, but now it's back in my hands. Since 
my time is very limited, and since our mailing list needed to be on several 
files by the program we were using before, we needed a quicker mailing 
list program which is able to hold all the names on one file. Don Marr, 
owner of Computer Palace (2160 W. 11th, Eugene, OR 97402) donated 
a double-density copy of their Super-Mailer Plus ($50). This program is 
much faster, very easy to use, and stores many more records. He was 
also kind enough to write a custom program to allow us to convert our 
Filemanager files to the Super-Mailer ones. If your mailing label is 
incorrect from the conversion, please let me know — there are bound 
to be some in this kind of transfer. 

Some new items received this month of interest. Jerry White (18 
Hickory Lane, Levittown, N.Y. 11756) is now selling his popular program 
Poker Tourney directly to user group members for only $12. This compiled 
BASIC program is a simulation of Draw Poker as played in the poker clubs 
of Gardena, CA, and has always been very highly regarded. 

A new, greatly improved edition of Atari BASIC: XL Edition (John Wiley, 
$15) by Bob Albrecht, Leroy Finkel and Jerald Brown is now out. The 
earlier edition of this programmed learning text came with the original 
Atari when the 800 was first released, and was written before the 
computer was completely developed. Many of us “old timers” learned 
from this book, but it had many errors and was very limited, ignoring 
many of the advanced features of the Atari. This new edition is much 
better, and is perfect for the beginner. 

Minute Manual for the Dot Matrix Printer Minuteware, POB 2392, 
Columbia, MD 21045, $13) is а new book — a "non-programmers guide 
to buying, using and understanding the dot matrix printer. This 166 page 
book covers the Epson, Okidata, Gemini, Prowriter, NEC and Apple 
printers. Very similiar to the manuals which come with the above printers, 
except it is much better written and easier to understand, and leaves 
out the advanced programming features of the printers. Of use to those 
of you who cannot understand your printer manual, and don't have a 
user group member nearby to help you. 

Paper Clip, the highly regarded word-processor from the Canadian 
software company, Batteries Included, (U.S. Office, 17875 Sky Park 
North, Suite P, Irvine, CA 92714) is about to be released in the Atari 
version. More about it next month if we receive it by then. 

In this issue is the followup of Stan Ocker's Labels program from the 
March issue. We didn't have room for it in the May issue. Stan also sent 
a correction to the Label program: 

88 REC$=INDEX$(128*(S-1)+1,128*S): GOSUB 750: IF 5-32 THEN 

GOSUB 500: RETURN 
89 S=S+1: REC$ -INDEX$(128*(S-1)-11128* S): GOSUB 750: GOSUB 

500: RETURN 


BUMPAS REVIEWS 


І can underline! | can print superscripts and subscripts! When | print 
double columns, the printer backs up the page automatically to the top 
of the second column after printing the first column! I’ve never been able 
to do these functions on my IDS printer with any word processor which 
uses Atari disk format until now. OSS has sent Version 2.2 of the 
WRITER'S TOOL to all registered owners. This upgrade contains three 
utility programs to improve the performance of this already great word 
processor. 

The program which allows me to use the printer functions described 
above is a printer configuration program. It's menu driven — all you have 
to do is to respond to the prompts for most of the functions. You may 
also create a translation table to translate characters before they are sent 
to the printer. 

Another program permits the user to customize the default screen 
formatting parameters. Color and luminance of background and 
characters may all be set to your taste. Default page length, line spacing, 
beginning footer line, font, single sheet option, line length, margins, 
justification and tabs may be set to automatic everytime you boot up 
the program. Or you may create multiple custom files and "Change" them 
from within Writer's Tool. 

The third big change is the addition of a spelling checker and a 
dictionary management program. The user can create specialized 
dictionaries to speed checking. You may add and subtract words from 
a dictionary already created. 

A dictionary is provided on the reverse side of the disk which contains 
approximately 20,000 words. As the program uses ASCII format, text 
files created with many other word processors may also be proofed with 
this checker. 

A mail merge function has been added, and one can define up to 10 
strings of 255 characters each to be called up each time you press 
OPTION plus a number from O-9. 

PRINTER BUFFER ROUTINE 

Do you have an old Atari 400 around, perhaps only serving as a spare 
chip set for your 800? Or maybe you couldn't sell your 600 XL when 
you upgraded to an 800 XL or an XE machine. Well, for $40 you can 
buy the Printer Buffer Routine from B.L. Enterprises, Box 4282, Louisville, 
KY 40204. 

The package comes with a cartridge, a disk, and a cable to connect 
two computers together through their joystick port #1. The 
documentation (more than 200 sectors) is on the disk, together with 
versions of the routine for 16k systems and those with more than 24k. 
| set up my 400 as the buffer, and | got 15.1k to use as a printer buffer. 
І printed a program listing of over 400 lines. The PBR gave me back my 
computer after less than 140 lines had been printed! With the 400 as 
main computer and the 800 as buffer, | have even a larger printer buffer. 

The user is advised to use Atari DOS 2.0 with this routine. | tried the 
Copy function to printer with Smart DOS and the program did not 
recognize the buffer. | also tried to use it with the Writer's Tool, but as 
its disk has DOS XL (an OSS product) on it, and | did not create a new 
one with DOS 2.0, | could not get it to work. The PBR should work with 
cartridges such as AtariWriter, Assembler-Editor, etc. 

On an XL machine, the routine locates itself into some of the unused 
portion of the 64k, and so creates a larger buffer than one obtains on 
an 800. If you've been thinking of getting a printer buffer and you have 
two Ataris sitting around (or know where you can get a 400 cheap) you 
might find your need satisfied with Printer Buffer Routine. 

FREE MODEM! 

SourceView, 835 Castro Street, Martinez, CA 94553 800-443-0100 
x440 has released what they describe as "a totally configurable 
telecommunications system.’ BULLETIN BOARD CONSTRUCTION SET 
sells for $50, plus $4 postage and handling. If you order the program 
before September 1, 1985, they will include a free 300 baud, auto 
answer, direct connect Bell standard modem. We haven't seen the 
program, so can't comment on how it works. But the offer of a modem 
in the package for the same price might make it interesting to a user. 


JULY PICNIC 


The July picnic will be at Jasper park on the regular meeting day. This 
year we will have a “flea market". ACE members can bring any surplus 
hardware and software to sell to other members. 

Vice President Larry Gold will designate the area in which members 
may set up their goods for sale. Each member desiring to sell items will 
give Larry Gold a $5.00 donation which will be delivered to WISTEC 
(Willamette Institute of Science and Technology). WISTEC will send you 
a receipt for your tax deduction. 


SENSITIVE ATARI 


(Reprint: SBACE, March, 1985) 

The Atari can measure temperature, light level, and humidity. You can 
add this capability to your computer for just a few dollars, and without 
making any modifications. The paddle ports of the Atari are actually 
specialized analog input ports. They can read the value of resistances 
in the range of 100 to 100, 1000 ohms with a resolution of one part in 
228. The Atari reads the value 60 times a second and puts them in 
memory locations which can be accessed by Basic Peek statements. This 
article includes a Simple program which will read the inputs, convert 
them to useful units of measure, and display them on the screen. 

The temperature sensor is a thermistor. Its resistance decreases with 
temperature. | use a Fenwal model GA45P2 which has a resistance of 
50,000 ohms at 25 degrees centigrade. You can use this temperature 
sensor to measure room temperature, and many other temperatures. 

The light sensor is a GE X-6 photocell. Its resistance decreases with 
increasing light. When the photocell is plugged into the Atari, it can be 
used in the darkroom to contro! exposure of prints, or it can be used to 
measure biological parameters. I’ve used it to measure the breathing rate 
of a mouse by shining a focused light beam at the mouse's stomach and 
pointing the photocell at the edge of the circle of light. When the mouse 
breathes in, the light reflects into the photocell. When the mouse 
breathes out, the light reflection moves out of view of the photocell. 
Similarly, NASA uses photocells to measure the heartbeats of astronauts. 
They put a small lamp on one side of the ear lobe and the photocell on 
the back side. Each time the heart beats, the pumped blood darkens the 
ear lobe enough to change the light level received by the photocell. 

The humidity sensor is a Devry Industries Hygropak model HA. It is 
actually a particle sensor, which is most sensitive to humidity. The higher 
the humidity, the lower the resistance of the sensor. None of the above 
sensors cost more than $5.00. 

The program listing demonstrates the capabilities of the Atari analog 
input system. Lines 10 through 62 Open Device 2 as the keyboard input, 
put the screen editor in Graphics 2 mode without a text window, and 
prints an opening menu. Line 75 reads the keyboard. It looks for any one 
key to be struck. Lines 80 through 90 display the selected key on the 
screen for a fraction of a second before Line 95 selects the next 
procedure to execute. If the key is “1” the temperature procedure at Lines 
100 to 170 is executed. If a “2” the photocell procedure at lines 200 
to 260 is executed. On a “3”, the humidity procedure at lines 300 to 
360 is executed. If the key is not a 1, 2, or 3, then the closing screen 
at lines 999 to 1040 is displayed. 

The temperature procedure starts by setting up a Graphics 2 without 
text window, and turns off the cursor. Line 120 reads the analog input 
as an 8 bit value between O and 228 by doing a Peek (624). Location 
624 stores the analog input from the left pot of Jack 1 (there are a total 
of 8 pot inputs: 2 pots per jack — the shadow locations of these inputs 
are locations 624 through 631). Line 130 converts the value read to a 
temperature in fahrenheit. The values for this equation were obtained 
by exposing the sensor to 2 known temperatures, measuring the input 
values and using some algebra to solve two simultaneous equations for 
two unknowns (the slope and intercept of the linear conversion equation). 
Lines 140 and 150 print the result. Lines 160 and 170 check to see if 
a key was pressed while the temperature was being read and displayed. 
If any key was pressed, the value is read and the program goes back 
to the main menu. 

The light sensor and the humidity sensor are handled in a similar 
fashion. Only the conversion equations are different. Lines 999 to 1040 
display the list of sensors demonstrated by the program. 

The hardware needed to connect the sensors to the Atari is very simple. 
A 9-pin female connector is used to plug into the paddle jacks. The 
connector, which is of the "DB" variety, is available for $0.75. Solder 
wires to pins 7 and 9 of the connector and to the two leads of the sensor. 
- Plug the sensor into jack 1, and you are in business. 

This demonstration shows the versatility of the Atari analog inputs. 
The applications are limited only by your imagination. 

—Richard Q. Fox 





REFORGER '88 


(SSI $59.95) — Every year NATO holds exercises representing a Warsaw 
Pact attack on West Germany. With REFORGER '88 (SSI, $60), you can 
get a piece of the action. This fine wargame simulates an attack on the 
Frankfurt airbase. You are given command of two corps, with a total of 
five divisions. Can you fight a delaying action against twelve Warsaw 
Pact divisions? 

This game comes with both one- and two-player options, and there 
are two scenarios included on the disk. There are also four skill levels, 
but these only affect the number of replacement units. The game itself 
comes on a double-sided disk with two plastic covered maps and a 
detailed rulebook. The map is very high quality Hi-Res graphics, and the 
text portions of the game have been tabbed over so that there isn't any 
overscan. 

The game format is very nice so it is rather difficult to make a bad 
mistake. The game components have accounted for every single NATO 
or Warsaw Pact tank, missle launcher, or armored personnel carrier. The 
combat system has every weapon rated for attack and defense, with 
variables for disruption and mode of attack. The actual combat appears 
a little abstract, and it seems to favor the NATO forces, but it accounts 
for things which are difficult to accurately measure, such as loss of 
control, or momentum. An air element is also present, with air squadrons 
of both sides represented down to the individual planes. There are also 
four types of weather which only affect air combat. 

This is a good game, and | like it, but a few random events thrown 
in, or perhaps another scenario, might make this a much more enjoyable 
game. For random events, | suggest having extra or no reinforcements, 
such as from adjoining units like the 1st Belgian, or the 2nd French. The 
game also uses the option of chemical warfare. | feel this is not 
adequately represented in the game. The solitare versions leave much 
to be desired. 

The game stresses a "desperate delaying action’, but to me it's more 
of a case of where the Soviets can be held. With advanced warning, the 
Soviets can be held to within 10 hexes of their end of the board, while 
the surprise scenario gives the Soviet armies about half to two-thirds 
of the board, but still out of reach of their main objective, the Frankfurt 
airbase. Another criticism is that the game says you must hold until 
reinforcements arrive. But in actual play, there is only one division for 
reinforcements. If you can't hold the enemy back with four divisions, 
you can't hold them back with five. 

About the artificial intelligence, it doesn't exist. All | can say is that 
if the real Soviets fight this bad, NATO has nothing to worry about. The 
computer is not very flexible, and | have launched localized counter- 
attacks and actually ended up with more units than the Pact forces. Every 
game | played, a zero score or less is a decisive victory for NATO, | average 
around -50000. However, with two players, the game is infinitely 
superior. - 

As а simulation, the game is not so hot, although as а game system 
for two players it is excellent. If you have a wargamer for a friend, you'll 
get many hours of great fun. 

— Aaron Ness 


MULTIPLE CHOICE 


The term “boilerplate” is used by technical writers to describe large 
portions of text lifted from other handbooks, procedures or other formal 
documents. Boilerplate needs only to be changed slightly to conform with 
the new document being written. Not far from a Palimpsest, but neater!! 
The writer is applying it to portions of computer programs lifted from 
other computer programs to create a whole new program. 

As a result of many trials with school children and the handicapped, 
| have settled on the Multiple Choice form of quiz as the most useful 
in presenting quizzes. | tried putting several subjects in one quiz, but the 
problems involved made those too cumbersome to perpetuate. For a time 
| made comparisons using type-in answers versus multiple choice 
answers and | find users will not even try type-in if multiple choice is 
available. The result of my experience leads me to concentrate on one 
subject multiple choice programs with simple DATA statements. The 
Lexicon program embodies the end product of my experience. 

The ACE library has the other programs l've prepared in this series, 
including: French, German, Italian, Portuguese, and Spanish. Lines 100 
through 1535 are the same in all these programs except for changes 
desired for cosmetic purposes. With the exception of Lexicon where the 
DATA has three words instead of two words, any data will work with 
any program. In other words, the German introduction and display could 
be grafted onto the Spanish words and the only thing you'll notice is 
the German words look like Spanish. | 

The use of a whole program for one subject has the advantage that 
more data can be devoted to the subject, the multiple choice answers 
are more diverse and the READ DATA command executes quickly and 
without delay, maintaining user interest. This is the only system | have 
found which allows BASIC to move fast enough to satisfy the user. The 
teacher can easily make changes to these programs to make them fit 
the data. 

— John R. Kelly 


PLATO 


(Reprint: Р.А.С.Е. World, Мау 1985) 

We've all experienced a time when the machines and tools we are using 
have amazed us. Often it’s their power, or their versatility, or sometimes 
even their stubborn inability to perform the task for which they were 
designed. Computer users are especially prone to being caught off-guard 
by their machines. Computers are just about the most complex and easily 
confused tools we use. 

My 4 year old Atari 800 has surprised me time after time; My first 
taste of Star Raiders; the realization that |, too, could make players and 
change display lists; an intermittent hardware bug somehow tied to my 
need to use the computer. My most recent pleasant shock was seeing 
The Learning Phone (TLP), Atari’s Plato access software, in action. 

Plato is a telecommunications network operated by Control Data Corp. 
It supports high resolution graphics and has a truly stupendous library 
of educational software making effective use of the graphics capability. 
A unique CDC terminal with special keys and a touch-sensitive screen 
is normally required to use the system. Unfortunately, the $10,000 price 
tag for the terminal restricted Plato use to educational institutions and 
well-heeled businesses. 

Atari microcomputers are among the first to have Plato access 
software. The TLP cartridge was developed for Atari by Vincent Wu and 
friends, and boy, is it a nice piece of work. They've given Atari computer 
owners full Plato service with very few of the trade-offs expected when 
adapting two very different technologies. Simulating the Plato terminal 
was the hard part. The authors have cleverly used the special abilities 
of the Atari to take the place of the special functions of the CDC terminal. 

The unique Plato keys are replaced by logical combinations of keyboard 
and Function (Start, Select, and Option) keys. For instance, the Plato 
"Data" key is Start-D; "Lab" is Start-L, etc. Also, some of the most 
commonly used Plato keys can be input using ajoystick, allowing users 
to "kick back" from the computer and drive the system with their feet 
on the desk. The joystick can also be used to simulate the touch-sensitive 
screen on the dedicated CDC terminal. When the system is looking for 
touch screen input, a cursor appears on the screen. The user moves the 
cursor to the desired selection, presses the joystick button, and voila, 
there you are! TLP sends the appropriate signal down the line and the 
system never knows a touch screen wasn't used. 

Two display methods are available at the touch of a button: Normal 
and Zoom. In Normal, the large 512x512 Plato screen is compressed to 
fit completely into the Atari Graphics mode 8 (320x192) screen. The 
Zoom mode restores the full Plato resolution, but naturally only a small 
portion (about 3096) of the screen can be displayed at one time. The 
joystick is used to move the smaller Atari “window” over the larger Plato 
screen, using Atari's fine scrolling ability. 

No dry description can take the place of hands-on experience. . . . 
Getting on Plato is similar to accessing the more familiar information 
services, like Compuserve and The Source. Plato has no initial fee and 
presently costs $7.50/hr. ... 

It checks for Electronic Mail under a handful of categories. It also 
checks the present participation in a number of multiplayer, interactive 
games.... We then menued up an educational program, one of over 
6,000 available on line. It was instructionson how to safely start, operate 
and slip the Auxilliary Power Unit on a Boeing 747! Plato quickly drew 
the necessary subsection of the 747 instrument panel, complete with 
switches and clearly labelled gauges. A small box of text appeared and 
prompted me to take the first step. At the same time, a bright cursor 
appeared, indicating | should use the joystick... you can just about get 
the complete ground school for the 747 wih Plato. 

Another somewhat randomly selected program was a thorough lesson 
on the vector relationships of moving objects, complete with animated 
descriptions and detailed formulas. Plato explains things much better 
than my college dynamics professor, at a much lower cost! The catalog 
of educational programs includes programs for elementary students up 
to graduate students, dairy farmers, electrical technicians, educators, 
managers, insurance salesmen, etc! 

We then called up a list of users presently on the system and made 
contact with one. Regardless of what they or you are doing on Plato, 
you may call another user without interrupting your or their task! The 
user we called was playing chess with Plato. He put us in monitor mode 
and or screen became a duplicate of his, complete with graphics. He 
showed us some fantastic drawing programs from his files, files we 
couldn't have accessed without him! We carried on a running dialog with 
him on the bottom two lines of the screen while we were watching his 
graphics programs develop on the rest of the screen! 

Next we looked at three of the many realtime, interactive games... . 
Empire is a simulation of tactical space combat, with animated (about 
2 second refresh rate) graphics. Wolfpack is a WWII submarine vs 
destroyer simulation. Dry Gulch is a role-playing simulation of gold-mining 
in the Old West. Each of these is MUCH too complex to describe in detail. 
In each the simulation goes on 24 hours/day, as long as there are active 
players. You enter and leave the simulation at will. While playing you 
cooperate with your fellow teammates to achieve the common goal, or 
strike out on your own for individual glory. You can communicate with 
the other players without interrupting the simulation. 


Hopefully, now you've got an idea of how different Plato is from other 
info services. l've been around computers professionally and as a hobby 
for years. This is just about the most generally useful service l've seen 
a computer perform. Atari's TLP brings this to your doorstep. 

In all fairness, using Plato with TLP does have some minor drawbacks. 
Reading the text on the Normal mode screen does take some practice, 
due to the scrunched characters. Not having the fuil screen always 
available in all its exquisite graphic detail is a shame. Things might tend 
to get expensive using Plato at $7.50/hour if you're stuck with a 300 
baud modem. However, these are not really serious problems when 
stacked up against the obvious benefit of having this powerful 
educational tool in your very own home. 

Atari should be releasing TLP cartridges before June. At last rumor 
the packaging was being prepared now. The cost? Hopefully, right around 
$30. 

— David N. Koster 


B/GRAPH 


Reichman, Michael H. & Wilson, Robert — 1984 

B/Graph has been improved, and is even better than in its original form. 
It comes to us with one of the best 149 page instruction booklets, | have 
ever used. The booklet is organized around a series of Tutorials. The nice 
thing about B/Graph is the software is as impressive as the nicely laid 
out instructions. Tutorial 1, entitled Graphing, gets you started. This 
section deals with the basics of start up and utilization of the main 
menus. 

In the booklet each of the main menus is shown by a black and white 
reproduction of the screen display. A list of subjects shown in the main 
menu allows you to gain an understanding of the extent and versatility 
of this program. The main menu lists the following options: 

1)Reset printer type (allows access to printer options and variables); 

2)Graphing (allows Bar Graph, 3D Bar Graph,Segmented Bar Graph, 
Line Graph, Scatter Graphs, Market Graphs, plus grids overlaying 
rescaling color control); 

3)Pie Chart (allows the construction of Pie Graphs, like the graph 
function this also has many customizing features); 

4)Graph Image/labeling (allows screen dump to a disk as a high 
resolution picture file, slide display function, alternate labeling); 

5)File Manipulation (allows file data manipulation, exponential 
smoothing and moving averages, ASCII files); 

6)Statistical Analysis (allows distibution testing of data); 

7)Regression Analysis (allows mathematical curve development for 
data); 

8)Correlation Analysis (allows correlaion between two factors); 

9)chi-Square (allows Chi-Square analysis); 

O)Mini DOS (allows access to basic DOS functions); 

E)Enhancement Disk. 

From this brief summary of the main menu І hope you сап get a feeling 
for the range of options open to the users of this program. In addition 
to a section on each of the above topics, the instruction book contains 
two appendices and a bibliography. Not being much of a statistician | 
was happy to see the inclusion of the bibliography. The bibliography gives 
data on some basic books dealing with statistics and their uses. It also 
gives the titles of some Atari usage books which will help uou understand 
how to utilize your computer and statistics. 

Appendix A deals with the problem of Photographing the screen. The 
program does support the utilization of printers, but for those who wish 
to take the full advantage of the color graph options or who are doing 
slide presentations, this short section gives some helpful tips. Certainly 
a nice touch. 

Appendix B deals with Artifacting, or the concept of color graphics 
and some of the limitations because of color modes, types of monitors 
etc. This is also short but again a nice touch. 

One feature, which | think is interesting, is the Tutorials give you a 
variety of files with which to work. The tutorial files range from 
astronomy, population, Napoleonic Wars, to car defects. This makes me 
see much more clearly the range of usuages of statistics. 

Like all programs there are some problems. One problem deals with 
need to reboot to access certain of the B/Graph functions. Also this 
program is best utilized using a two drive system. On the whole this 
program is worth looking into if you need the use of some good statistical 
analysis, or just need a way to create some nice graph effects. 

— Nick Chrones 


SYNPRINT 


ið REN 
å Print Utility For S5ynFilet 
28 REM Written For lise By SPACE - 5t. 
Paul ATARI Computer Enthusiasts, 
November 25, i384. 
i8 REM Printer control codes are 
located in lines 1218 and 1228 
for those with printers 
48 REM other than МЕС 88238 or Pro- 
writer, See SYNPRIMT.INS for 
further instructions С this 
58 REM іс an ATARIHRITER text file 3. 
188 POKE 82,7:GRAPHICS 8:ВІН D$(C7681,P 
$(5123,B5(3880),T5(256),H5 (256), LL (15) 
‚2Р5 0157,РЕ5(157,й5 (202,52 (8) , P5 C151, 
Е(15) 
118 DIM UL8SUCI),ULIS CT) ,ENL8S C2) , ENL IS 
{3} ,EMHOS CIJ ENHIS (2) , CPT185 C22, CPT129 
{33}, CPIL7$ (3) , DBLOS (22, PBLIS C33 
178 DIM ITL8SCIJ, ITL15 C32 ,UBEF OS C32 , UD 
ЕҒІ5(22,1(33,11(22,12(2):0РЕҢЖ Н1,4,8," 
K:":TRÀP i3@:60508 1288:60T0 148 
iz8 ТВАР 119:7 "Error H'";PEEK(CI9S33;" D 
etected at Line “;PEEK (1863 t256XPFEK C1 
87) 
125 ? :? "Press any Key to Continue": 
ET #i,A 
148 CLOSE HZ:CLÜSE HI:POKE 752,1:505U8 
258:GET Hi, @:IF й2127 THEN a-A-128 
158 à-à-48:0M A GOTO 308,508, 788,2098, 
i58:G650T0 148 
i68 POKE 752,8;:END 
199 REM ПЕГЕН ТИН АЧ А4 15 
208 2 "Ww'?.* 


ПАЦА  :POKE 82,18:7 
218 2 "Data File: ";FF$:? "Label Fale 


ча [65:7 "Format File: "РР 

278 POKE 82,2:POSITION 2,5: RETURN 
249 REN ПТП 

258 G05UB 288:7 “ERED B UIN :? 
= Load File":? "2 = Load/Create Label 
File" 

268 2-2 = Load/freate Print Format Fi 
1р":7 "4 = Print":? "5 = Quit":? 17 "E 
nter Choice: RETURN 


781 





i88 Е05ШВ 208:7 ЕРЕ": 271682” 
D:X.THT":GO0SUS 1888:IF H-8 THEN GOSHB 
1458:6070 148 

118 GOSUB 1650:AS CLEN CAS) & 12 ZU , THT": OP 
EN H2,4,8, S :FFS-AS CI, LEN CAS) -42 

128 FOR I-1 TO 4:INPUT 12;H5:NEXT ІЗІМ 
PUT 82:73 

128 IF LENM(HS)XLEN(CTS) THEN FOR I-LENI 


BY 


H5)*1 TO LENLTS2:HSCI, T=" "ІНЕКТ I 
140 GOSHB 288:1-0:NH-1:D5(11-1 


350 ІСІЗІ:ІҒ D-LEN(CTS) THEN 418 
. 368 IF TSCI,I)-"-" THEM 358 
178 DECHH3-I-1 


I-I4i:IF DD-LEN(TS) THEN 418 

IF T$(I,I)-" " THEN 288 
NH-NH41:03CNHIJ-I:GOTO 250 
418 DECHHY-LEN(CTS):? :? vCEEREREEBGDIT: 
FR! :7 :60508 1988:? :7 "Press апу Key 


to Continue" 
428 INPUT H2;T$:NÜTE H2,5EC,CHAR:GET H 


i A: GOTO 148 

439 REM 

сай GOSUB 200:7 ЕТЕШ? 17:7 
"load or @reate":? :5$="D:#.LBL" 

528 GET 91,0:60508 1388:IF à-75 THEN 6 

ia 

528 IF A057 THEN 148 

548 POKE 752,8:7 :? "Enter Left Margin 
Offset: ";:INPUT LM 

558 7 :7 "Enter ff of Columns Assuming” 
120" 19срі: “::ҮНРИТ NC 

568 7 :7 "Enter # of Labels Across Pag 

e (1";2 " to 3): "::INPUT NL:IF НЕСІ 0 

Е NI? x THEN 558 

578 G-B8:IF NL)i THEM ? :? “Enter Horiz 

ontal Gap Between Labels":? " Assuming 
i8cpi: ";:INPUT 6 

588 7 :? "Enter Number of Rows (vertic 
allyJ":? " of Text per Label: "s INPUT 
NR 

538 GOSUB 288:2 ЕПИР: :7 :6 

0518 1888:7 :GOS5UB 1650:45 (LEN CA22 t1)— 

и LBL" 

518 OPEN 12,8,8,A5:LLS$-AS CX, LEN C63) - 42 


288 
290 
488 


578 7 HZ;LM;:? H2;NC:? 82;G:7 H2;HL:7 H 
2;WMR:60T0 678 

5i8 GOSUB 1888:IF N-B8 THEN GOSHB 1458: 
GOTO 148 

648 GOSUB 1658:45$ (LEN CAS] F1) "LBL" 


658 OPEN 342,4,8,45:1L $-AS CZ, LEN CAS) -4) 


668 INPUT H2:LM:INPUT H2;NC:INPUT H2;5 
:INPUT 42;NL:INPUT 12;HR 

678 LMI-CLM:Gi-G:NCI-MC:GOTO 140 

699 КЕН 

7828 GOSUBR 208:7 "HARMELEN? :7 
718 2 "Road or (Hreate":GET Н1,й:СЕР-І: 
7 15$9-"D:*.FHMT" 

778 50508 1288:ІҒ й-76 THEN 1188 

725 IF РЕБ ТОШ" THEN ? “Data Fil 
e Not Loaded" :6051B 1458:GOTO 148 

718 IF &0 67 THEN 148 


5 


888 


BOB FLOYD 


748 P$-'"":TRAP 745:6070 758 

745 TRAP 745:7 "Error H';PEFEK(I951;" L 
etected at Line ";PEEK(ÍBBI 4255 XPEEK(1 
873:605HB 1680:G505HE 1450 

758 POKE 752,1:6505UB 1788:? "B = Strain 
g Input":? "1 = Heading™:7 FZ = Items": 
? ч: = Spaces":7 "4 - Tab" 

758 2 "5 = Remove Trailing Blanks";? "' 
b с Remove Leading Blanks-next item” 
778 ? "7 = Printer Control Code"%:7 "B 
= Carriage Returnís)":? "9 - End Entry 
н:2 (БЕТ Hi,A:IFf Й2127 THEM йсй-178 
788 POKE 7572,8:42й-48:08 А GOTO 828,86 
8,878,988,918,340,958, 1818, 1848 : IF ği? 
a THEN 758 

733 REM ВНЕ 

8868 CRF-@:G05U8 1588;7 "Enter String:* 
:INPHT TS:IF LEH(T22)-8 THEN 60508 1480 
:G05U8 i68@:G0TO 758 

878 PSCLEMCPSItLI-TS:A=TO:GE5UB 1580:6 
070 758 

823 REM EER GE Bega as 

838 CRE-O:G05U8 1708:6050В 19688:2 "Hhi 

ch Heading: "; 

848 605ИВ 15880:INPUT A:IF ati OR AdNK 

THEN GOSUB 1488:G05HB i588:650T0 250 

858 GOSUB 1588:G0T0 758 

853 REM 

868 CRF-8;:605UB 1788:505HUB 1909:? ''HWhi 

ch Item: ";:G60T0 848 

#69 REM TETS 

878 CRF-8:6505UB 1588:7 "How Many Space 

t: "i:INPHT a 

IF Adi OR 47255 THEN GOSUR 1488:60 

1688:6070 758 

GOSUB i548:G0TO 758 

£39 REM ПЕП 

908 CRF-8:60508 1588:? "Tab to Which C 
әні: ";:INPUT A:GOTO 888 

383 REM 

918 CRF-8:605HB 1588:7 "Leave How Many 
Trailing Blanks: ;: INPUT А 

328 IF a<@ OR 42255 THEN GOSUB 1488:60 
SUB 1588:G60TO0 758 

338 60508 i588:60T0 758 

319 REM 

948 60508 1588:7 “Leave How Many Lead: 
ngs Blanks':7? “ On Next Item: '";;INPUT 
й:60Т70 928 

949 REM 

358 GOSUB i588:G6050B8 1788:7 “PACM: 

RDGOREETTERS: ÁÀ 

368 ^? " ІШ SH DPI" :?" 1 2 
ünderline"U:? * F 4 Enlarged" 

378 T" 5 6 Enhanced"? " 7 


SHB 
898 


SYNPRINT CON'T 


8 Double Strike" 

3887" 9 18 
User Defined":? 

999 2 " 13 = iðcpi":? " 14 = 12cpi":? 

" 15 = 17срі" 

i888 ? :7 “Which Code: ";:INPUT A:IF à 

20 AND й516 THEN 1886 

1882 GOSUB 1488:605HB 1688:G0T0 758 

1086 IF А<3 OR Add THEN 1815 

1809 IF CRF<i THEN 1883 

1818 If 4212 AND CRF-ü THEN 60508 1488 

:G05HB 1688:G0TO 758 

1812 CRF-CRF*1:GOSUB 1508:G60T0 758 

1815 IF A(13 THEN 1828 

1818 IF CRFO1 THEN 1883 

1819 60508 1588:G0TO0 758 

1818 CRF-8:605UB 1588:G60T0 758 

1823 REM 

1828 CRF-1:60508 1588:? "How Many Carr 

ізде Returns: ";;INPUT й:65070 888 


1813 REM 


1848 IF CRFOÓ1 THEN PSCLEN (PS) 1) =" 4 


Italics":? " 11 12 


i858 TRAP 118:60508 1788:605UB 1888:60 
SUB 15658:45 CLEN (A5) t 1) Z" ,F HT" 

1888 OPEN 12,8,80,05:PP$-A5 CI, LEN (A$) -4 
):? H2;P$:G60T0 148 

1188 GOSUB 1888:IF N-8 THEN GOSUB 1458 
:GOTO 148 

1128 GOSUB 1558:45 (LEN (AS) 413=". FHT" 
1128 OPEN H2,4,8,0$:PP$-AS CI, LEN (A9) -4 
):PS-"":TNPUT H2;P$:G60TO0 148 


1199 REM Hi HEB CIS ЕГИН: 
1788 FFS-"EMDTTTEEE" : LL 57 FF : PPS -FFS 


1283 REM LIED DEG DTE ieee 


1218 iL8$-"Ey":pL 15-UE X" : ENLBS-CHRS C15 
) :ENLIS-CHRS C142 : ENHaS- "E" : EN H8S (2) CH 
R$C,34) :ENH1S-"EínicprT1aS-n£ wn 

1228 CPII123-"LE":CPI17$-"EQ'":DBLO$-"": 
DBL1S-'"":ITLB$-"":TITL 15-85; bEFBS- 7" sy 


DEF1$-"" 
1238 LM-B:NC-188:6-8:NL-1:NR-B:RETIRN 





1299 REM ETT eee 
1288 IF 4)127 THEN á-à-128 

1318 IF 4995 AND 44127 THEN 4-5-32 

1328 RETURN 

1488 POKE 752,1:? :7 "RTT 
;CHRS(25212:605UB 1450: ВЕТИВМ 

1458 FOR H-1 TO 588:HEKT W:RETURN 

1588 PS CLEN (PS) H1)-CHRS (0) : PETIRN 

1558 FOR I-1 TO 2:1(1)-0:12Х12-8:ҢЕКТ 

I:RETHRN 

1560 A-EMLt1:LMI-INT(8.SEL MXCPI/ (10x40) 
JiGi-INT(B. S GKCPI/ CL8X01) S NCA-INT(B.S 





. 1599 


*NCXCPI/ 1042) :60508 1558: RETURN 

1588 В5-" ":B5(I88)1-B5:85(2)-B5:G05U8 

1558:RETURN 

1688 IF LEN(PS))1 THEN PS-PSUL,LEM(CPZ) 
-1) :RETHRN 

1618 P$-'"":BETURN 

1650 POKE 752,8:? :? "Enter New Filena 
Me: “j INPUT AS:POKE 752,1:605UB 1558: 
RETURN 

1668 T$-85:45(1,2)-"D:":65 (2) -T5 : RETUR 
н 

1788 60508 288:? :? :7 ЕЕН 
ШГЕНе:? : ВЕТА 

1799 ВЕМ 


1888 N-8:TRAP 1820:0РЕМ 12,6,8,55:G0T0 
1838 


1878 TRAP 128:? "EFESE TAT 


W; CHRS (2533 :G05UB 1450: RETURN 


1818 TRAP 138:7 “EDR: 7 


1848 INPUT #2;A$:IF LEN (AS) (17 THEN 18 
68 

1858 N-N*1:? 85(2,183:6070 1848 

1868 CLOSE Н2:ІҒ N-8 THEN ? “EDT 
Found i 

1878 RETURN 

1899 REM 

1988 FOR I-1 TO NH 

1918 IF I(18 THEN ? " "; 

1928 ? I;" ":H$(DSCI), DECID 

1928 NEXT I 

1948 RETURN 

REM [ETT 

2888 IF FF$- ШТИ" on Pri- 


E" THEN ? UOFYENGRSUNCDEGTITIS File No 


GET | CHRS (2533 :G05UB 1458:G0T0 14 


Б) 


20818 POKE 752,1:605HB 298:7 k Print Rol 
MATE" :? :7 “Insert Data Disk and Pre 
55 ANY Key'":GET #i,à 

2028 AS-"D:U:A$ C(I)-FFS:AS CLEW (AS) 41) =" 
TET" OPEN #2,4,8,85 

2818 POINT H2,SEC,CHAR:BLKFL-8:EML-8:C 
PI-18:6051B 1568:605U8 1588 

2048 FINFLG-8:? :? "Specify Qutput BEY 


. TCE: FILEMAME "; : INPUT AS:IF LENAS) z8 


THEN йӛ-ерін 

2041 IF й5-"р:" THEN 2? :? "Turn an Pri 
nter 4 Press any Keg":GET #1,8:7 :7 "p 
ress to Pause or Abort" 

2946 ОРЕН H1,8,8,45:IF ag="P:" THEM 7 

"XPCPII82;liL85 ; ENLOS; ENHOS; DBLBS: TTLOS 
;UDEF AS; 

2058 D$-" 9:05 (7683=D$:8$ (7) =b4S:TI-|:T 
RAP 2888:IF FINFLG-1 THEN 148 


6 


2852 IF PEEK(53279))6 THEN 2858 

2854 ? :? "PRINTING PAUSED - Dhort or 
Bontinue":GET #1,a:G05U8 1188 

2856 IF 0-65 THEN 148 

2858 FÜR I-8 TO NL-1 

2068 INPUT H2;T$:1F LEN(TS)-8 THEN 206 
8 
2855 
Ізі 
2878 
2888 


05(1%25641,1%256Ң EN (T2) )S T5: 1I-T 


NEXT I 
NLI-II:TRAP 128:ІҒ NLi-8 THEN 148 


IF NL1ONL THEN FINFLG-1 

60508 1558:.-8:NR1-8 

2188 J-.*1:IF .JDLEN(P$) THEN 212: 

2118 A-ASCCPSOS, 13 : JJ 1: K-ASCUPS CJ, J 
33:08 Ati 60508 2148,2178,2188,2248,27 
958,2118,2418,7428,2688 

2128 IF BLKFL=2 THEN BLKFL-8:GOSUR 278 
8 

2125 IF BLKFL=i THEN BLKFL=2 

2138 GOTO 2188 

2133 IF NR-8 OR NRID-NR THEN 2858 

2136 FOR I-NRi*1 TO NR:? HI:NEXT І:60Т 
0 2858 

2159 REM CET: 

2148 Ji-J 

2158 IF ASC(CPSLJ, 0) Ox8 THEN J-441:60 
TO 2158 

2168 TS=PS(Ji, J-1):605U8 3888:RETURN 
2169 REM 

2178 T$-HS(D5(K), BECKI) :6051B. aes: RET 
URN 

2179 REM TETUER. 

2188 FOR I-1 TO NLi 

2198 N-DECK):IF DECKI>LENCDS} THEN N-L 
EN (DS) 

2288 II-(1I-1)X256: T$-P S CTI4DS CC) , TT4N) 


2885 
2838 


2218 60508 i188 
2228 NENT I 
2218 RETURN 


2239 REM SFI 

2248 T$-"":Fü0R Ісі TO K:TS$(I,I)-" “ІНЕ 
КТІ 

2245 FOR I-1 TO NL1:G05lB 2888:МЕКТ I: 
RETURN 

2249 REM 


2258 FOR Ісі TO WLi 
2268 NI-LCIJ-L?ZIIJ:N-K:IF NÓNCI THEN N 


-NU1 

2278 K-(I-1)K188:IF Mi(N THEN 7298 
£288 FOR ІІ-К+Н+і TO KtNi:BS (II, II)-" 
= NERT II 


SYNPRINT CON'T 


2298 
2588 
2383 
2118 
2118 
2148 
2158 
2378 
23668 


LtI}=N 
NEXT Т: RETURN 

REM GLUT eee 

FOR Izi TO м1 
N1-(I-1)X188:TRL--1 

FOR II-L(II)4Ni TO Niti STEP -i 
TRL-TRL4^1:IF BSIII,II)O" " THEN 


МЕКТ II 

2178 IF TRL-K THEN 2488 

2388 IF TRLOK THEN L£IJ-CLIT)-TRL*K:60T 
0 2488 

2398 FOR II-HitL (13241 TO НІН CT) +K-TRL 
:BS (IT,II)-'" "NENT. IT: (ІЗГІ CI) *K- TRL 


IF І<ІЗЭНСІ THEM LIIJ-NCI 

MEET І:РЕТШЕН 

REM DETTTIEECETIDTROYEDUCEREETAS 
fiag & store. pointers 

2418 FOR Ісі TO MLU:LitTI-LetT3 +i: NEXT 

I:BLKFL-1;LEAP-K:RETHRN 

2413 REM 

2428 ON К GOTO 2428,2448,24508,2468,247 

й,2488,2498,2508,2518,2528,2528,2548,2 

558,2558,2578 

2418 TS=ULiS:GOSUB 3288:RETURN 

2448 TS-HL8$:605HB I288:RETURN 

2458 7 HIJ;ENHLIS::EMI-I:GOSIB 1558:RETH 

RH 

2468 

RN 

72478 

2488 

2438 

2588 

2518 

2528 

2518 

2548 

2558 

TURN 

2560 

TURN 

2578 

THURS 

2599 

2608 

a "; NEKT II 

2610 IF WLi-i AMD 117-9 THEN 2640 

2628 FOR I-i TO М1 

2625 Ni-(I-11X188:? HI;BS(H1tl,NItNCI* 

LZCI11; 

2528 IF G1?8 AND IONLi THEN FOR II-i 

TO 61:7 HE" ";:NEHT II 

2635 WEHT I 


2395 
2488 
2483 


7 HI;ENLB8S;:EHML-8:GUSUB i569:RETU 


2208: RETURN 
Qi288:RETURN 
3288 :RETHRN 
3288:RETURN 


T$-ENH15 : GOSUB 
T$-ENHB85 : GOSUB 
TS=DBLiS : GOSUB 
T$-pBL85: GO5SUB 
T$-ITL1$9:6051B 3209: RETURN 
TS=ITLAS:GOSUR 2200: RETURN 
TS=UDEF IS: GOSUBR 1200: RETURN 
TS=UDEF OS: 50508 2288:RETURN 

2 HI;CPIi8$;:CPI-i8:G60501B 1568:RE 


2 HI:;CPI129; :CPI-12:605UB 1568:RE 


? HI;CPIi17$; :CPI-17:605UB 1568:RE 








2548 ? HI:HRi-NRITi:IF К-і THEN 2668 
2658 FOR I-2 TO К:7 НІ: SRI-NRITI;NERT 
I 

2668 60506 1588: RETURN 

2599 REM GODT Eee УА 
2788 K-LEAD:FOR I-i TO Mii 

2718 Ni1-(I-1)X188:TRL --1:IF LÍICIJ?-LII 
) OR IOLCD-LiCO3 THEN 2858 

2728 FOR II-Hi*Li(I) TO нін (13 

2718 TRL-TRL*1:IF BSCIT,II) 0)" " THEN 
2758 

2748 NEXT IT 

2758 IF TRL=K THEN 2858 

2768 IF TRL<K THEN 2818 

2788 BSCWLFLI СТОЕК, With CI2 -TRLEK) -BS CN 


itLICD *TRL,N1*L (132 

2798 FOR II-NItLCI2-TRL4K?1 TO МІЗ (13 
:85 (II,II3-" ":МЕКТ II 

2888 GOTO 2858 

2818 FOR II-Ni4L(I)-K*TRL TO Hit 1 (17+ 
TRL STEP -i 

2828 BSCII+K-TRL, TI+K-TRLI BS CIT, IT) 


2818 NEXT II 
2848 FOR II-HIFL 1(I)4TRL TO NISL ICI)TK 


-1:B$ tII,II)-" ":NERT II 
2858 WENT I 
2860 


2999 
3883 


i818 
3828 
3838 
2199 
RN 
iii8 
Мі 
1128 Ni-(I-1)X188*L CI) :BS (N1* 1, N13 NK) T 
561,83 :LCIJ-L CI) 4M: RETURSN 

21288 FOR Ісі TO NLi:L2(I)-LZ UD *LENCTS 
):NgEXT I 

3218 G05UB 32888: RETURN 


RETURN 





FOR Ісі TG NLi 

505UB 3108 

MENT І: RETURN 

міі (13-12613:ІҒ Ni)NCI THEN RETE 


N-LEB(TS):IF NitHSHCi THEM N-NCÍ- 


PASSWORD FOR 
JUNE iS 
SNOW 2-3-4-5 


саты 


STUNT RIDER 





ргодгам. (і 5506 4) 
і 2 "IMTTIALIZING 
IREN "STUNT RIDER" 
QNE JOYSTICK 
2 REM PRESS TRIGGER TG START BIKE OFF 
THEN INCREASE SPEER OF BIKE EY 
PUSHING JOYSTICK UP. 
2 REM ТО DECREASE SPEED,PULL STICK 
| BACK. 
4 REM THE OBJECT I5 TQ JUMP THE BUSES 
WITHOUT CRASHING. 
IF ОШ 'GUER DO TT’ YOU'LL CRASH. 
5 REM XXX SEE YOUR BIKES JUMP KENEK 
xxx IN SLOW MOTION! EKE 
5 REM а BONES OF 288 POINTS IF YOu 
'Just'MISS THE LAST BUS. 
7 REM POINTS ARE AWARDED FOR OTHER 
SULCESFUL JUMPS. 
YOU HAVE 5 BIKES (OR LIVES). 
8 REM SCORING OVER 2888 POINTS GIVES 
YOU айн EXTRA BIKE. 
3 REM жє PROGRAM WRITTEN BY R.ASKEH XX 
{FROM IDEA OF YOUNG SON). 
89 CEDAR RO. MORHAMPTON.RNi 42H 





IS A ONE PLAYER, 
GAME. 


18 СЕ-РЕЕК(7421%255-1874 

ії FOR 4-0 ТО 511:РОКЕ CBA, PEEK 57544 
#4) :MEXT A:FOR zë ТО 73:READ B;POKE С 
В+4, Е: МЕКТ À 

15 GRAPHICS i7:POKE 756,CB/256:POKE 78 
8,127:РОКЕ 789,52:Р0КЕ 718,8:РОКЕ 711, 
136 

28 POKE 712,288:PO05ITION 4,4:7 Kö; sty 
nt rider":PüSITIQON 8,6:7 HO; "EEF" 

25 POSITION 2,8:7 Ho; CDI BERR’: Р 
QSITION 7,18:7 Hb;"askew" 

28 5Т-(ФЕҒК(1Й63-162%256:РОКЕ 54279,5! 
/256:Ғ08 ATR TO 256:РОКЕ 5Т41874%),0:М 
EXT A:Y-158 

55 FOR à-a8 TO 7:READ B:POKE STtiIB24tY4 
4,B:HEXT A 

48 POKE 52277,3:PüKE 784,8:50HND 8,1328 
,2,21РОКЕ 553,62 

58 FOR M-25 TO 228:POKE 5:248,M: NEXT К 
:POSITION 4,15:? H5;"HOLD START" 

68 IF РЕЕК(522791-6 THEN SOUND 8,8,8,8 
SPOSTTION 4,15:? GJ” "iB50TÜ 
858 

61 6070 58 

74 7 #6; Rn POKE 559,0 

76 Е8-1:0=5:7-6:РОКЕ 712,136 

88 POKE 77,8:BUS-INT(RNHD(B)X11) ts 

81 POSITION &,8:7 HG; “ERG "С 


LISTS BY STAN OCKERS 





i8 REM 3 

28 REM ЖҰ LI5T5 жж 
i8 REM XX WORKS WITH DATA FROM — XX 
48 REM ¥* LABELS PROGRAM 2-85 ЖЖ 
59 REM XX 5. 0. MAR 35 жж 
68 REM XX ACE NEMSLETTER жж 
78 REM ЖҰ 2667 Vine Maple Әгіуе XX 
88 REM XX Eugene, üR 37485 xx 
98 REM J3OHOOOOOHOOOOHOOHOHOOHOOODOOE 


i88 РОКЕ 552,8;:605HB 5888:6505lB 2188:6 

0508 2888:G6051B 1288:G05UB 1118:GO5UB 

338:PÜKE 559,34:60508 888:6051B 869 

i8i REM MEH FIND LIST LENGTH ЖҰЖ 

i82 ? "FINDING LAST ENTRY':FOR J-7 TO 

4887 STEP 6:ІҒ INDEXS(CJ, J*43 OFREXS (1, 

5) THEN 106 

184 WEXT J 

106 LA5T-J 

118 FOR J-1 TO 4896 STEP 128:CUPY5S C, J 

*t1271-INDEKRS CJ,.14127) :MEXT J 

119 REM XX SORT THE INDEX INTO copys 

хұн 

i28 ? CHR$(125):POKE 7803,0:РОКЕ 284,4: 

POKE 285,6:POKE 286,1:? "SORTING" 

128 A-USRIADR(OORTS) , ADR CCOPYS1 , 682) 

158 ? CHR$(125); :POKE 752,1:605UB 588: 

60508 488 

i78 GET ШІ,й 

i88 IF à-78 OR A-ii8 THEN GOSIB 558:60 

TO 160 

198 IF 

0 119 

288 IF 

TO iig 

218 IF 

TO 158 

212,4Ғ 

TO 168 

228 GOTO 178 

299 REM XXX LIST ENTRIES XXX 

zaa HSEFLG-8:? CHR$(1252;:? "ИНАТ LETT 

ER TO START"; :GET HL,KY 

202 7 CHRS (125) :SAYKY=KY:FOR K-4887 TO 
i STEP -6:IF й5С(С0РҮ5(К322-КҮ THEN 3 

86 

384 NEXT K 

i86 STPOS-K:? CHR$(I25) 

318 POSITION 3,1:? "ІЖШік-Васк to menu, 
Ца, ог A-z'":POSITION 32,21:? “ar 

row keys, SEALEN, ?-5how entry"; 

228 Jj-1:POSITION 18,::? “SPR 

56 7 Sif 

228 ATASCCCOPYS (C522 : GOSUB. 488: POSITI 

ON 3,344:? COPYSCK,K*4) 

i48 50508 448 


&-65 OR 4-97 THEN GOSUB 689:G0T 
&-84 OR й-і16 THEN 50508 658:60 
й-77 OR й2109 THEN GOSUB 1:00:00 


&-88 OR А-112 THEN 60508 988:060 


$58 J-.*1:K-K-6:IF 1219 THEN 378 

i68 GOTO 328 

278 COL-i1:ROH-1:POSITION 8,4:7 CHS; :PO 
KE 752,8 

272 GET Hi, KY:IF С0121 AND KY-4X THEN 
50508 428:C0L-COL-1:G05UB 438 

174 IF С01<8 AND KY-42 THEN GOSUB 428: 
COL-COLti:GOSUB 438 

276 IF RODi AND KY-45 THEN GOSIIB 428: 
ROW-ROW-1:60508 4328 

378 IF ROM(i18 AND KY-61 THEN GOSUB 428 
ROHEROHE i: 60508 438 

i88 IF KY)64 AND KY(123 THEN 382 

187 IF KY-155 THEN К-5ТР05:ІҒ K-188)-L 
AST THEN K-K-188:G0T0 386 

i84 IF KY-63 OR KY-47 THEN GOSHB 458:6 
0508 858:POSITION 8,2:7 RECS(1,271:605 
UB 438 

386 IF KY-:2 THEN DSEFLG-1:605UB 458:4 
-IDHt4827-CX6:B-A5C CPHRS (COL) : CCUSRECA 
PRCBOLS? A,B) :G05U8 468 

388 IF KY-27 THEN 396 

398 GOTO 372 

596 IF USEFLG-1 THEN 60508 888:6505ШВ 8 
88 


398 RETURN | 
399 REM XXX BITS TO ASTERISKS ЖҰЖ 
488 STARS$-"--------- " AZUSR CODRCBITSS 


3, ABR CSTARSS) , 47 : RETURN 

419 БЕН X4X* CURSOR ROUTINES ЖҰЖ 

428 POSITION 8*(COL-1)K3,34ROM:? " ''; 
: RETURN 

438 POSITION 8*(CCOL-1)XZ,I4ROH:? CUS;: 
RETURN 

448 FÜR L-1 TO 8:POSITION 741 Xz,3t:? 
STARSSCL,L2; : NEXT L:RETURN 

458 A-5TPO05- CRON- 126: CODES-COPYS (A, At 
57:60508 748:RETURN 

468 A-PEEK(CA) : P-ZSTPOS- CROH-1) 645: COPY 
5tP,PJ-CHRS (A): Ј=ВОМ: 505068 488:605ШБ 4 
48:G051B 4ZI8:RETIRN 

479 REM НЕ CHOICES x 

488 POSITION 1,28:? ре 
een eer ÓmÓ—— M I 
482 POSITION 1,21:? "| 
(041 Ғу a list I" ' 
484 POSITION 1,22:? “| 1151/1151 Mdd o 
г Наке [grint list |" 

486 POSITION 1,23:7 '"L——— M 
— ————Q I! a RE TURN 

499 REM 3X PRINT LIST NAMES 33€ 

588 5=719:G050B 858:POSITION 8,1:? "CY 
ARNEE; POSITION 5,2:7 "B - Ev 
erything''; 

518 FOR J-1 TO 8:POSITION 5,2X.43;? J; 


Шаме list 
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Mox Moshe J-ELG41 27 RECS (A, AtL5) ; INE 

KT J: RETURN 

519 REM XXX CLEAR PROMPT BOX ЖҰЖ 

528 POSITION 2,21:7 БІК%(1,25);:Р05ІТІ 

ON 2,22:? ВІК (1,157; :RETURN 

549 REM ҰҰ% КАМЕ A LIST ЖЖЖ 

558 60508 528:POSITION 6,21:? "List te 
паме (1-82?';:GET #i,A:IF A-155 THEN 

RETURN 

552 й-й-48:ІҒ A(1 OR A28 THEN 558 

568 60508 528:1I5$-"":POSITIQON 3,21:7 

ГЕККЕ ae EAD 4";A:POSITION 6,22 
:INPHT LIS$:L-LEN{LI593 

578 P-(A-1)X16* 1: RECS (P, PA 152 -BLKS (1,1 
6) : ВЕС CP, PtL-1) =L15$ (1,1) :57712: 605UB 
758 
588 
599 
бей 
ist 
: IF 


RETURN 

REM ЭНЕ CLEAR LIST TAGS XXX 

GÜSUB S78: POSITION 6,21:7 “Which 1 

to add to (1-822'";:GET H#i,A: a-A-48 

й(1 OR A?8 THEN 688 

684 GOSUB 528:POSITION 1,21:7? “Which 1 
ist to add to list ";A;" (8-8)?'"; БЕТ 

Hi,B:B-B-48:IF B(8 OR B>8 THEN 684 

618 GOSUB 528:POSITION 3,21:7 Ш 20р LI 

"3637 "заз" ВЕЛИ": БЕТ Hi 
,KiIF KO89 AND K4D121 THEN RETURN 

578 ATASCCPWRS(A)):IF B28 THEN B-ASCCP 
HRS (B3) | 

638 FOR .-4891 TO 145Т45 STEP -б:Р051Т 
TON 18,22:? J;:IF B-8 THEN 648 

527 C-HSRCOND,PEEKCIDXtJ)2,B2;IF C-8 TH 

EN 641 

648 C-USRCORA,IDEKtJ,ÀJ 

641 NEXT J 

642 60508 888:605UB S88:RETURN 

658 G05lB 528:POSITIQOM 6,21:? "List to 
take from (1-8)?''; :GET 11,65:6-4-48:IF 
й(1 OR й)8 THEN 658 

654 GOSUB 528:POSITION 3,21:7? "List to 
take from list '";A;" 08-877"; :6ЕТ H1, 
B:B-B-48:IF В<(8 OR B?8 THEN 654 

660 GOSHB 528:PÜSITION 3,21:7 Ш TAKE L 

"383" праз" КЕМИ": GET 
Ні,К:ІР К(289 AND К(2121 THEN RETURN 


678 à-255-A5CCPHRS (AI): IF 828 THEN В-й 
5C (PHRS (82) 

688 FOR J-4031 TO LASTHS STEP -6: POSIT 
ION 18,22:? J;:IF В-8 THEN 698 

682 C-USRCOND,PEEKCIDMtJI,B):IF C-8 TH 
EN 631 

598 C USR (NND, IDK+J, A} 

631 NEKT J 

692 GOSUB 888:605UB 880: RETURN 





739 REM 3% FIND CODE STRING IN INDEKS 
RET. SECTOR 'S' ЖЖ 

748 C-USR(ADR CBS, 682, ADRCINDERS) , ADRI 
CODES) ,6, LENCCODES)) :5-715-C: RETURN 
749 REM XXX SAVE RECS TO SECTOR 5 33x 
758 IO-HSRIADR(SECRHS) , ADR (RECS) , 5,1) : 
RETURN | 

799 REM ЖҰ WARMING ЖҰЖ 

888 TEMPS-RECS:54U5-5:5-728:6051IB 850: 
IF RECS(1,183="zzzzzzzzzz" THEN RECS-T 

EMP$:5-54US:RETURN 

882 RECS-TEMPS:5-5AUS:POSITIOM I,18:? 

BWGRNING!!- BE SURE DATA DISK IS INAH 

OSITION 18,12 ! 

818 ? "THEN PRESS ANY KEY":POKE 764,25 

5 

828 IF PEEK(764)-255 

822 RETURN 

849 REM XX READ SECTOR "5! INTO RECS 

жын 

858 ВЕС5(1283-" ":AàREC-ADR(RECS) :ASECR 

H-ADR(SECRHS) : 10-050 CASECRH, AREC, 5,8): 
RETURN 

859 REM XXX READ SECTORS 1-32 INTO IND 
EX 3X | 

868 INDEXS=" ":INDEMS(4896)-INDEXS:IND 
ENS (2) -INDEKS 

878 FOR 5-і TO 32:60518 858:J-(5-1)X12 
Sti INDEXS (J, J4127) -RECS : NEXT. S:RETIURN 


THEN 828 


879 REM XXX SAVE INDEKS TO SECTORS 1-3 

2 HE 

888 POSITION z,21:? “STE 
"IBLKS 

882 FOR 5-1 TO 32:J- (5-1) 812841: REC2-T 

ИРЕК CJ, 1273 : GOSUB 758: NEKT 5S:RETURN 


899 REM HEN PRINTING ЖҰЖ 

388 60508 528:POSITIQN 1,21:7 “Which 1 
151 to print (8-82?";:GET НІ,й:5ҒІ-й-4 
B8:IF SELB OR 5Е1У8 THEN 388 

382 GOSUB 528:POSITION 8,21:? "Print Щ 
abels":;:POSITION 3,22:? "Print [lirecto 
ry listing"; 

904 GET Hi,KY:IF КҮ-58 OR KY-188 THEN 

966 
986 
388 
318 
328 


IF KY-76 OR KY-188 THEN 918 

GOTO 982 

IF SEL)8 THEN SEL=A5C CPMRS{SEL)} 
FOR J-4891 TO LAST+4 STEP -6:IF SE 
L-8 THEM 326 
324 C-USROND,PEEKCCOP*.) ,SELI SIF C-8 
THEN 938 

326 CODES-COPYS (7-4, J) :60506 748: 60505 
858:RESTORE 948: MARG-6:G05UB 13@0:FOR 


М=1 TO SKIP:? #2; : NEXT M 
338 NEXT J: RETURN 
348 DATA 8,1,1,2,255,8,8,1,255,8,8,4,2 
55,0,8,5,2,6,255,8,14,7,8,255 
959 REM HHH SINGLE LINE LIST 99 
968 2 H2:"": IF SEL?8 THEM SEL-ASC(PHRS 
(SELI) 
362 FOR J-4821 TO LASTH4 STEP -6:IF SE 
L-@ THEN 966 
964 C-USRCOND,PEEKCCOP* J2, SEL3 : TF C-8 
THEN 978 
966 CODES-COPYS$(J-4,. :60506 748: G05UB 
858:RESTORE 978: МАВС-0: 605068 1:88 
378 NEXT J:RETURN 
972 REM ЭНЕ DATA LIST FORMATS PRINTING 
жн 
373 REM жик PAIRS (CH BLANKS, FIELD HJ) X 
жж 
374 REM ЭНЕ d BLANKS = 255 (CARRIAGE Е 
ETURN) ЖҰЖ 
975 REM XXX FIELD # = 255 (END DF DATA 
2 жн 
376 REM XXX Н BLANKS > 188 (TAB TO COL 
. BLAWK5-188) XXX 
378 BATA 8,1,1,2,1,3,168,8,255,8,0,4,1 
,5,1,5,3,7,255,8,0,255 
388 REM XXX TOTAL STRING SEARCH XXX 
382 REM жиє ANALOG H17 P. 84 xxx 
984 REM 33 C-ISR(CADRECS , CHT, ADR (CAS), 
ADRIDTSIRL, BIL] set | 
985 REM 3% CNT-RECORD СИТ 90е 
386 REM 4 AS-STRING DTS-DESIRED TERM 
EEE 
387 REM HE RL-RECORD LEM DTL-DES TERM 
LEN зе 
398 DIM BSC1332:RESTORE 1888:FO0R J-1 T 
0 129:READ 4:85 CJ, 3) =СНЕ5 САЗ NEXT J: RE 
TURN 
1888 DATA 216,184,184,133,284,184,1:17, 
281,184,112,282,184,131,2808,104,131,21 
5,184,133,214 
i818 BATA 184,184,11:,205,184,184,137, 
285,169,8,125,212,169,8,152,215,162,8, 
168,8 
1828 DATA 177,214,224,8,288,2,122,216, 
289,2688,288,42,222,228,206,248,22,288, 
196,285 
1828 DATA 248,58,72,152,72,118,158,177 
;214,133,287,184,168,184,155,2807,24,14 
4,219,71 
1848 BATA 165,284,133,213,165,202,153, 
212,184,162,0,224,0,248,17,224,8,248,6 
,168 
1858 DATA 8,177,214,162,8,164,216,288, 
196,285,288,185,165,288,24,181,285,131: 
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, 298,144 

1868 DATA 2,228,289,155,282,208,6,16Е, 
704,748,7,198,204,198,282,24,144,156,3 
6,-і 

1190 REN * LIVE W/O 005 ANALOG НІ? P 5 
4% 

1102 REM X IO-USR(GDR(GECRHS) , ADR CBUFS 
),5ECT,FL AG # 

1104 REM X FlüG-8 TO READ, 1 TO WRITE 

* 

1118 DIM SECRHS(CA4) :RESTORE 1128;f0BR J 
сі TO 44:READ й: 5ЕСЕМ CJ, J) CHRS САЎ: HE 
HT J:RETIRN 

1128 DATA 184,184,141,5, 1, 184,141,4, 7, 
184,141,11,1,184,141,18,3,184,184,281 

1128 DATA 1,208,7,169,87,141,2,5,188,5 
:159,82,141,2,3,169,1,141.1,3,52,85,22 
8,96 

1199 БЕН нє USR BOOLEAN FUNCTIONS жи 


1288 RESTORE 1710:DIM BOLS (64) , PHRS (8) 
SFOR Ісі TO 54:READ A:BOLS(J, JO ZCHRS CA 
}:МЕХТ J: ВОС АВА (BOLS) 

1284 RESTORE 1278:Ғ08 Jzi TO &:READ А: 
PMRS CJ, .3-CHRS CAI: NEXT Ј: ИНО ВО +16: 08 
A-BOL*12:0ND-BOL*48 : RETURN 

1218 DATA 184,184,122,204,184,122,28I, 
1658,0,184,184,81,202,145,28:,96 

1212 DATA 184,104,122,284,1й04,122,2081, 
158,82,104,184,49,202,145,202,96 

1214 BATA 184,104,123,284,1084,153,202, 
16й,8,184,104,17,202,145,2082,96 

1216 DATA 184,104,194,111,2172,184,184, 
37, 212,133,212,169,98,133, 212, 96 

1219 REM XXX POWER STRING ЖҰЖ 

1228 BATA 1,2,4,8,16,32,64,128 

1799 REM XXX PRINT ACCORDING TO DATA 5 
TATEMENT xe | 

i388 M-1:K--1:H0LD-8:5KIP-1:C0L-1 

ii82 READ BLNKS,FLDNO:PRTS CH, M3 -CHR$ (B 
LNK5) :PRTSCME1,MEFIJ-CHRSCFLDNOO : IF FLO 
И0-255 THEM 1718 

1204 М-МҰ?:60Т70 1282 

1218 69508 1394 

1270 K-Kt2:BLNKS-ASCOPRTS CC2 2 : FLDNO- A5 
CCOPRTS (К+127 

1:22 IF BLNK5-255 AND HülP-a8 THEN ? #2 
=n GSUS 13324:60T0 1328 

1228 IF BLNKS-255 AND HOLD-1 THEN SKIP 
-SKIPti:GOTO 1328 

1348 IF FLDNO-255 THEN ? H2; "":RETURMN 


1258 RESTORE 1488*2XFLDNQ:READ POSFLD, 
LFLD:L-ZPOSFLIDHLFLD-1 
1368 If RECSCL,LI1-" " AND LDPOSFLD THE 


LISTS CON'T 


M L-L-1:60T0 1368 

125% IF [-PüSFLD AND (KY-76 OR KY-i88) 
THEN HüLD-i 

13178 IF L-POSFLD THEN 1228 

1372 IF BLNKS)188 THEN BLNKS-BLNKS-188 
‘FOR Hci TO BLNKS-COL:? #2:" “::COL=CO 

L#i:WEXT M:GO0TO 1298 

1288 IF BLHKS)B THEN FOR M=i TO BLWKS: 

2 H2;" ";:NEMT M:COL-COL*BLNKS 

1338 Н010-8:7 HZ;RECSIPOSFLD,L) ; :COL-C 

OL*L-POSFLD41:G0TO 1228 

1334 FOR Mci TO MARG:? 12;" ";:NEXT M: 

COL-MARG: RETURN 

1408 REM #8 POSITIONS ІН RECS AND LEN 

GTHS OF FIELDS X 

1482 BATA 1,12 

1484 PATA 12,15 

1485 рата 28,24 

1488 DATA 52,24 

1418 DATA 75,16 

1412 DATA 92,2 

1414 DATA 94,5 

1418 DATA 99,12 

1418 DATA 111,17 

1998 REN XXX ML SORT UTILITY COMPUTE! 

MAR '82 P. 144 EK 

2888 DIM SORTSCIZ25):RESTÜRE 2818:FÜR J 

=i TO i26:READ A:50RTS CJ, J) -CHRS Cà) : ME 

XT J:RETURN 

2818 BATA 184,104,122,217,184,132,216, 

184,123,7289,104,155,288,159,0,122,218, 

131,287,162,1,165,216,113 

2828 DATA 214,165,217,133,215,24,165,2 

14,1332,212,101,285,111,214,165,215, 133 
,2112,185,8,122,215,164,283 

2818 DATA 155,286,248,18,177,214,283,2 

12,144,44,248,12,176,19,177,214,289, 21 

2,144,12,240,2,176,28 

2848 BATA 288,196,784,240,727,176,23,1 
44,223,169,1,133,218,164,205,136,177,2 
14,72,177,212,145,214, 104 

2858 DATA 145,212,192,8,288,241,212,22 
4,8,288,2,228,287,228,288,288,172,155, 
289,197,287,708,166,165 

2868 DATA 218,201,8,288,144,96 

2833 REM XXX FORM STRING FROM BITS OF 
А St 

2188 DIM BITSS(IA43 :RESTORE 2416:FOR J= 
i TO 24:READ A:BITSS CJ, L2 -CHRS (A) INERT 
J:RETURN 

2118 DATA 184,104,152,204,184,152,7812, 
1658,7,184,104,18,144,6,72,169,42,145,7 
81,184,115,16,244,935 

саве DIM TEMPSCI28]1,HAFLDS (28) , RECS (12 
B),BLK$ (583,8555 (1281, 0$ C1) , LISS (163 31 


FLD-18:7 CHRS(125) 

6818 DIM COPYS(4836) ,PRTS (58) , INDEKS (4 
896) , STARSS (8) : COP-ADR CCOPYS) 

5828 IDX-ADR(INDEKS):DIM FREXS (6) : FREK 
&-"zIZI0":DIM CODES(6) OPEN Н1,4,8,7К 
4: OPEN 2,8,8, "PI" 

сеза BLKS-" ":BLKS(SB)-BLKS:BLKS (2) -BL 
KS:A-PEEK(16):1F 09128 THEN à-4-128:P0 
KE 16,Й:РОКЕ 52774,Й 

5848 COPYS (1)="0":COPYS (4096) -COPYS : CO 
руз C2) -COPYS:DIM CIS (2) :CUS="=)" RETUR 


STUNT CON'T 


85 0-185:J-8:EX-8 

i88 COLOR L:PLOT 4,21:DRAHTO BUS,71:00 

LOR 2:PLOT 4,27:DRAWTO BlI5,22 

i85 IF Ui THEN COLOR 165:PLOT 1,8:DRÀ 

WTO U-1,8 

118 COLOR 163:PLOT 2,22:PLOT 3,21 

128 COLOR 122:PLOT 8,15:DRAHTO 13,15:P 

LOT 8,18:0RAHTO 13,18:PLOT 8,5;5RAHTO 
19,5 

198 FOR A-8 TO 7:POYE 5T*18244Y40,0:NE 
KT A:N-55:Y-64:RESTORE 1890:Ғ08 à-8 Te 
7:READ B:POKE STt18244Y45,B:HEXT f 
192 POKE 54285,132:PÜKE 559,62:Р0КЕ 52 

248,X:300ND 8,288,2,2 

195 IF STRIG(83-8 THEN P-1:60T0 288 
i196 GOTO 195 

288 KIK+P:IF K)22@ THEN K-48:G05lUB 258 

218 SOUND B8,188-INT(P)EK7,2,2 

212 POKE 51248,H 

215 IF STICK(B8)-14 THEM P-Pt8.825XEK:E 
K-EK48.125 

216 IF STICK(B)-13 AND P)1 THEN P-P-8. 
i 

248 GOTO 288 

258 IF 1?118 THEN POP :POKE 527248,8:М- 
8:N-22:G60T0 288 

255 RESTORE 1838:F0R A-8 TO 7:РОКЕ ST4 
18245144,8:READ B:POKE ST418244 744046, 
B: NEXT A:Y-Yt4B 

268 RETURN 

тав K-INT(P)X2 

295 IF K43 THEN К-4 

186 IF K)17 THEN K-17 
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STUNT CON'T 


288 Z-78-CKX4) 

289 COLOR Q:PLOT HM,N:IF МӨ THEN COLOR 
B:PLOT M-i,N 

118 FOR йсі TO Z:NEHT А 

128 M-Mti 

328 LOCATE M,N,L:IF L-15I THEN ü-ibb:M 
-N-1:CO0LOR 8:PLOT M-i, Nti 

335 LOCATE M,H*1,L:IF ісі THEN N-N-1:€ 
OLOR 8:PLOT M-i, Nti: J=1 

336 IF Joi THEN 428 

348 GOTO 389 

428 COLOR Q:PLOT M,N:COLOR 8:PLOT М-1, 
м: 50090 8,H,18,4 

425 IF Н-К THEN 468 

418 FOR ATi TO 7:МЕКТ A:H-MT1:GOTO 478 


IF 8-27 THEN 588 
COLOR Q:PLOT M,N:COLOR B:PLOT M-1, 
SOUND 8,М,18,4 

462 IF M-19 AND N22 THEN 788 

465 IF N-28 THEN LOCATE M,M*1,L:IF 121 

THEN 888 

478 FOR ATA TO Z:HEXT A:M-Mti:H-Nt1:G0 
TO 455 

сай IF MOBUS+4 THEN COLOR @:PLOT H-1,N 
-1:60T0 888 

сйі IF MCBUS+ THEM C-CH288:Bü-1 

582 SOUND 6,788,2,8 

505 0-169:С0108 @:PLOT HM-1,H-1:COLOR 0 
:PLOT M,WIFOR йсі TO 48:NEXT A:SOURD 8 
,188-INT(P1X7,2,2:0-165 

518 FOR М-М TO 19:C0LOR Q:PLOT M,H:COL 
OR B:PLOT M-i N:FOR Aci TO Z 

528 NEXT A:NEXT М:ҒОН йсі TO Z/Z:NEHT 
A:COLOR B:PLOT 19,22:50UND 8,8,8,8 

518 C-C*CLBIS- 3) E18) +180 

512 POSITION 14,8:? H6;C 

515 IF (СӘНІ THEN HI-C 

548 IF Bü-1 THEN SOUND 1,15,18,6:FOR À 
-i TO SB:NEKT A:POSITION 14,2:7 15;"BO 
HHS":50UND 1,8,8,8:80-8 

558 IF C?I888 AND EB-i THEN 758 

688 IF 1-0 THEN 988 

618 FOR Axi TO 588:NEXT 8:7 #6;"8":60T 
0 88 

788 COLOR @:PLOT M,N 

718 FOR à-158 TO 258:50UMD 8,4,2,18:NE 
HT A:SOUND 8,9,8,8:/-0-1:G0T0 688 

758 l-l41:CO0LOR 165:PLOT U-1,8:500ND 8 
,28,18,8:F0R Azi TO JO:NEXT A:50HND 8, 
8,8,8:E5-8:G60T0 535 

888 COLOR 167:PLOT M,N:FOR й-158 TO 24 
8:501ND 8,4,2,8 

885 IF A-i88 THEN COLOR 168:PLOT M,N 
818 NEKT iSOUND 9,0,0,0:U-U-1:60T0 68 
a 


455 
458 
N-1: 


9888 
3881 
98872 


3883 
2884 
3885 
9886 
9887 
9908 
3889 
9810 
3811 
3812 


REM rrm ABT. nr 
RAM Ы band USR Compiler цшшы 
ROM Atari Owner's Club 1984 


CLR : CLOSE Н1:6070 3256 
LINE-LINE-I:GOTO LOOP 

FOR LIME-II TO 44:РОКЕ ХР05,2 
OP-USR CÓDR (0157, ADR CK19) , LINE) 
GOSUB FILL:PRINT "UP';LINE;' "; 
FOR N-7 Tü IT 

PRINT CHRS (PEEK (1516+037;: МЕКТ N 
ERRS=" (TT РЕ" 
CLA55-U5R CADR (025) , ADR (0Р5) 2 

ON CLASS GOTO 32827,9104, 2058, 2858 


» 3828, 9826, 9048 


9813 
9814 
9815 
9016 
9817 
9018 
3819 
38231 
9874 
9015 
3826 


POKE MPOS,XK:PRINT "RE"; ERRS; 
FOR N-7 TO 96 STEP 8 

POKE 712,:8:500ND 7,ЕК,18,8 

POKE 755,3:FOR Т-15 TO Z STEP -I 
SOUND 2,Т,18,Т:МЕКТ Т:РОКЕ 755,2 
POKE 755,II:FüR T-Z TO КК:МЕКТ T 
NEXT М:РОКЕ HPQ05,2:GOTO0 LOOP 
GOSUB FILL 

SOUND 7,HL,18,18;POKE ОРҒЗ,13 
LO-PEEK (1540) :0P-4:GOTO 3888 

ON PEEK(15413 GOTO 9828,9128,90831 


7 2032, 9055, 3828 


9827 
3828 
3823 
38:8 
3811 
3812 


3813 
3814 
9035 
9826 
93837 
38:8 
3848 
3841 
3815 
3843 
3844 
9845 
38465 
9047 
9848 
9858 
18 
3851 
3852 
3853 
9854 


REM 

55-"5ВГ":Жі-56 

60508 3125:G60T0 3818 
G6$-"ADCU:Ni1-24:G0T0 3823 
5$-'"STA":Ki-184:60T0 9829 
Mi-Z:0P-312:L0-86:H1-244:GDTO 9888 


K1-234:; 0P-H1:LO-N1:HI-MI1 

GOTO 9888 

POKE 15480,7:H1-Z 

POKE 1541,3:HI-Z:G0TO 93858 

? F$;:IF PEEK(85) XL-T THEN 9837 
POKE 85,Z2:RETURN 

DIRECTIUE-PEEK (15412 

ON DIRECTIVE GOTO 9044,3001,9208, 


1 2843 


GOTO 9178 

POKE ХР05,2:60508 FILL 
ІІМЕсІ ІНЕ- {LINE} I} 

L=L-ASC (BYTES CLINE} 3 

FOR NZI TO 3:РОКЕ ОР+Й-5,2 

NEXT N:GOTO LOOP 

POKE KPO5,3:GO5HUB FILL: POKE ЯР05, 


MODE-7Z:5ANS-Z:HI-Z:BASE-18 
N-PEEK (1518) : KC (N-88) : Y= (N-83) 
POKE OPtI,3i:FOR NZI TO 8 

БЕТ HI,K:IF K-155 THEN K-32 


USERCOMP 


ERR$-" BESTT" 

PRINT CHR2(K);:POKE OPtN,K-32 

FOR T-I TO LEN(K25) STEP ІНІ 

M-45C K25 CT) : J-ASC CK2$ CT4 12) 

IF K-M THEN GOTO (990044) 

НЕХТ T:GÜTO ERROR 

REM 

IF BASE=16 OR MDI THEN 9866 

IF CLAS5<}2 THEN GOTO ERROR 

SOUND 7,К1,18,10:6070 93825:REM П 

BASE=16:NEXT N:REM H 

К-К-7:ІҒ ВАЅЕ<16 THEN СОТО ERROR 

9067 К-К-48: АМ5- CANS#BASE) *K 

9068 IF ANS?B5535 THEN ERR2-" ГТА 

НЕКЕ” 12070 ERROR 

3863 POKE 0P*N4I,128:NEXMT N:G0TO LOOP 

3878 IF NDI THEN GOTO ERROR 

9071 MODE-8:NEET N:GOTO LOOP 

9872 IF М)І THEN GOTO ERROR 

3873 MODE=16+K+Y: NEXT N:GOTO LOOP 

3874 MODE-MOÜDE*I:GOTO 9869 

3875 MÜDE-2-M:GOTO 9881 

3877 IF MüDE-9 THEN 3881 

3878 MÜDE-IB:PRINT ", Y"; 

3879 POKE ОР+Н+І,12:РОКЕ ÜP*NH4II,57 

3888 REM 

3881 ERRS=" GRRE ayia 

3882 HI-INT(4H5/256) : LOANS CHI¥Z56) 
3881 IF НІ)? THEN MODE-MODE*4 

3884 BIT-ASCCBITS CMODE4 11) : POP 

3885 OPUSA (А08 CUTS) , ABR CUTS} , BIT) 
3886 SOUND Z,ML,1@,1@:POKE XP05,18 
3887 IF 0Р)255 THEN GOTO ERROR 

3888 POKE XP05,19:2 "(9;:5-7:50080 Z,H 
1,18,1й 

3883 IF Kid}Z THEN J-H1:605HUB STORE 
3838 IF 0Р<)4 AND 0Р<)17 THEN J-0P:605 
UB STORE 

3831 1=10:60508 STORE:Ki-Z 

9892 J-HI:IF HI?Z THEN GOSUB STORE 
3893 ? "€)";:PüKE KP05,16:J-IMT(L/18) 
3834 PRINT CHR$(176* (L2 39)) ; CHRS (14176 
-18*(.2322; CHR$ (1764L-18X. ; 

9895 SOUND 7,7,7,7:ІҒ MORE THEN 9121 
3836 HI-Z:FLAG-Z:NEXT LINE:GOTO 9288 
9897 IF MODE=9 THEN POKE OPtN4I,9:IF Y 
THER MODE=8 

3898 IF X THEN М0ВЕ-8 

9099 GOTO 9081 

9108 USERSCLEI)-CHRS (J) :L-L 4 1:5-54T 
3181 BYTESCLINE)-CHRS CS4FLAG) 
3182 PRINT J;'","::RETURN 

9102 REM 

3184 ERR$-" ТЕГПЕРЫТЕНТТКЕЕ 68577 


9185 GOSUB FILL:POKE ЖР05,9 


9055 
9056 
3857 
3858 
9859 
3868 
3861 
3852 
9067 
9864 
3865 
3866 
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9186 
9187 
3188 
3183 
3118 
9111 
9112 
3111 
3114 
3115 
9117 
9118 
9119 
3128 
3171 
3122 
912: 
9125 
9126 
9127 
9128 
9179 
3118 
3131 

9132 

9111 

3114 
3115 
3116 
3137 


POKE ОР+І,1:7 ЗЕҢІНЕ it"; 

FOR N-I TO ІЗІ:СЕТ HI,K:K-K-32 
IF K-Z OR K-121 THEN 9111 

POKE OPfN*T,K:K-K-15:PRINT К; 
ANS-AHSKiIB*K:NEMT H 

IF AMSCI OR ANS) 44 THEM 9812 

If AMSALIME THEN 9115 

OP-PEEK (1540) 
HI-Z:L0-Z:FLAG-126*4N5:60TO 9888 
L0-254:6050B 3128 

ERRS=" ET Tae 

IF LOX128 THEM GOTO ERROR 
ОР=РЕЕК 15402 :НІ-7:60Тт0 3888 

FOR N-ILIME-1) TO ANS STEP -I 
T=A5C (BYTES СЮ) 

IF 72128 THEN T-II 

LO-LO-T:NEXT N: RETURN 

FOR H-I TO I+II 

POKE 1575+, ASC (65 CH3) 

MEET М: RETURN 

G$-"LDA":GO053UB 3125:POKE ЖР05,4 
GOSUB FILL:PRINT “ТІН Loa"; 
OP-OP-I:MORE-OP:GOTO 9818 
OP=MORETN:POKE OP, 95 
MORE=Z:G3="STA":GO5UB 9125 

FOR ИСІ TO 188:NEKT M 

POKE 85,5:GO0TO0 3888 

REM 

&N5-212:65-" gy" 

GOSUB 9145:5070 9882 

3118 AN5-2131:63-"IGH":GÜTO 9127 

9139 4N5-281:GS-"EMP'":GOTO 9127 

9148 AN5-2885:GS-"OURCE":G605UB 3145 
3141 GOTO 3154 

9142 GS-"(DESTN.2":4N572804: IF РЕЕК(152 
61-76 THEN G$-"CSOURCE)":4085-286 

3143 N-N*8:0P-0P-2:G605lB 9145:6070 987 
8 
3145 
3145 
9147 
3158 
3152 
9153 
9154 
9155 


PRINT GS;:FOR J-I TO LEN(GÓ) 

POKE OPtJ4I,A5C {6593-37 

NEXT J:RETURN 
ANS-186:G59-"FMTOP":GO0TDO 9117 

IF BASE-16 THEN 9866 
f&N5-204:G6$-"ESTN.":G0SUB 9145 
0Р=0р+5;7 " €4=HI}": 

HENT H 

9168 ANS-AÓNSti1:GOTO 9882 

3178 HI-USR(ADR Chet) ВІТИ 1:5. 3061 НГ 
Ша Б ЧЕ Ten He) 

3172 РАБЕ-РЕЕК CHI} :РОКЕ HI,PAGE-8 

9174 POKE 83,PAGE-8 

9176 PRINT " 911: 'CONT' TO RETURN" 
9177 POSITION I,N22:PRINT "DO NOT INCO 
RPORATE LINES AT THIS STAGE"; 

3178 POSITION Z,II:PRINT "USR": USERS 


USERCOMP CON'T 


9179 PRINT “4LEWGTH="; LEN CUSERS3 ; 

3188 PRINT " ;UNCOMPILED BRANCHES-"; 
9181 LO-Z:FOR NZI TO LEN(BYTES):IF Ase 
(BYTES (N,N3)2128 THEN LO-LU*T 

9182 NEXT N:? LO:LO-LINE 

9183 60508 UNSTRING: STOP 

9184 LINE-LO:N-USB CADR Chiba Б ЧЕН 
85920 ie ? 

3185 POKE HI,PAGE:POKE 89,PAGE:HI-Z 
3186 GOTO LOOP 

3288 ERR- ШТАТЕ": REM. AEN 
3282 L-Z:FÜüR M-I TO LINE-I:L0-7 

3283 J-ASCCOYTESCODI:IF J0 THEM 9285 
3284 L-L*tJ:MEMT M:GOTO 9211 

3285 L-L*II:PRIMWT "ER"; HM; 

3286 J-J-128:F0R N-M*I TO J-I: TRAP ERR 
OR | 
9207 
3288 
3283 


T-AsC CBYTES (H2) 

IF 13128 THEN T-II 

LO-LOTT:HEKT N:J-Z 

3218 USERS ,LI-CHRS(LOJ:GOTO 3284 
9211 GRAPHICS Z:N-üSRCADR Chald Ebel ES 
ri EBNIPPREBGDTRODDLIAPBU)) PRINT "U 
&GIUE LINE Wo.& STRING NAME"; 
3212 PRINT '";PRESS RETURN:" 
3212 POKE 756,I:N-LEN(USERS) 
4214 PRINT "?888 DIM СТС"; 
3215 IF 82108 THEN 9219 

3216 ? "gage [TTI35-";CHRS (CO ; USERS; 
3217 POKE 766,2:? CHRS(0):G60T0 9248 
3219 PRINT "8888 [ENAS ; CHRI (Q3; 
3228 PRINT USERS (I, 100) ;CHRS (CO) 
3221 ? "gage [PNB (181) -" ; CHRS (03 ; 
3222 PRINT HUSERSCI81,N1;:60TO0 2217 


; n LE] 


9773 REM 
3224 LINE-9988:F0R N-I TO LEN (USER? 
3225 IF РЕЕК (85) (26 AND MHI THEN 2228 


3226 7 :? LINE;" DATA "CASCCUSERS СМ); 
LIMEXLIWEtI: NEXT N:GOTO 9227 
PRINT ",";A5CCUSERS C2 ; NEXT N 
PRINT ",-1":RETURN 

REM 

FOR NZI TO 256:READ BYTE 

IF BYTEXZ THEN POP :GOTO 2218 
USERS СИ) -CHRS (BYTE) :МЕХТ И: END 
POSITION 7,18:7 "GR.8:G05HB "; 
324i 7 “UNSTRING:REM GIVE DATA LINES" 
9247 2 “GOTO ERASE:REM WIPE COMPILER & 


LIST USR Be Яня 880 


WE: RETURN ЖБ POSITION Z,Z:END 

3258 GRAPHICS 8: GRAPHICS Z:1-1:II-I*I: 
NX-28:NL-ERHKM:NZS-HRTi:L-I:Q-14 

3251 FILL-3827:ERRÜR-981I:5TRING-2211; 
UNSTRING-3224:5TORE-3188:ERASE-9228 


3227 
3228 
3223 
9218 
3231 
9232 
9735 
9248 


3252 DIM 0Р5 02562 ,015 (1582, USERS (2882, 
K15 (26) ,K25 (641,025 (641 , 15 (64) , BYTES C 
188), FS CI), ERRS (24) , 6$ (12) , BITS (N23) 
3251 КИВ САО с" Ch РОМЕ FO Da 
ғ БП EP a [Ego 1992) POSITION 2,2 
9254 Uiz” No Op. Operand i 
3255 PRINT "5":0U15;U15;" PLA 
OPEM HI,4,2,"K":L00P-9886:KPQ5-85 
3256 BLIUSR (ADR (" ВАЛО: rada EE Ei 


(aes rw e/o / hin ERA ETE PCIE EE 2 
3257 01-058 (ара с" иер ЗЕ ПИ 
ПИШЕМ АЕА: e В. 
uei RALIS ҒЫЗ Еее 92 

3258 FOR И-І TO М23-І 

9259 POSITION It(N(18),N:PRIMT M; 

9268 POKE HPüS,NX*I:PRIMT И+22:МЕХТ M 
9261 POKE 752,1:? " U.K ATARI OWNERS C 


Lus BIEHEDTISJETIUNE E" ::POKE 559,34:Ғ5- 
ti ii 

9262 üPS-"CLBACLEEICLUEIJDEERID ELE INGINE 
NOGRIPHEHPLEAPLO CRIBS SERS SENET ALL: T ADIT S 
R EARI VEREROTS jT KEREP HCLAAETIA І ЕНЕ" 
3253 üPS(tIB1)-"DIbCaPIND aMprTaoRaiD AURA 
HIBCEEITAZESIT , DECHEN CEED KETUD VETUP УР VEE 
TXCEST vC 58098 CE 2B; T 8 B(OL TiU 2" 
3264 0P5(197)-" Rin 4; 35e BU)S pla * 4ТЕ 
eic Pra xe BY T SNE BRK RUBS END om 
9765 WiS=" (hn hada ЫП НОЯН ЕС 
IDEE: C FO JP ty PIL MP OPE УАН 
Sige BUCH DIE: нап ЗЕ" 
3266 11551822: ИЕЛІГІ. Nun ҰЙ КШ 
ан НЕ Josse TOEG a Lid 
9267 Ki$-"7g-:*fg97 h A/O- h] tz" 
3268 12$=" (hae APE А3097 
EY GY ТІРЕГЕН 72 4n ADH ee Ы" 
3269 К25-"ФАЙУВВСВИЧМЕВҒВӨСІС2С3С4С5С66 
тсвсэс PLFHH-HIM, JYKHaL P ничто TENER" 
3278 BITS-" | әдет кетте proveer 
3271 U:5-"hOATTADE heheh A 
Ath DE eG EH 3/0 /i ee" 
3272 USERS "hé" BYTES" þ":60T0 LOOP-I 
3238 951 ШТИТИ" 
3231 POKE 712,52:N8-9292:INPUT FS 

3292 IF F$Q"Y" THEN 3236 

3792 GRAPHICS 8:7 :? :7 N:N-N-1 

3294 2 "CONTTTt";:POKE 842,13:5T0P 
3235 POKE 842,12:IF N)8339 THEN 9293 
3296 GRAPHICS @:LIST :LIST "C:":REM DI? 
NOT USE “SOVE! AS NAME-TABLE IS NOT- 
l CLEORED UNLESS “NEW 15 USED. 
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858 FOR Т-і TO i5:READ E:50UND 2,£,18, 
18:50090 3,£+1,18,8:FOR й-і TO 25:NENHT 
A NEKT T:50UND 2,8,8,80:500ND 3,8,8,8 

868 FOR ATi TO 18:NEKT А 

878 FOR Tzi TO JO:READ E:50UND 2,Е,18, 
i@:50UND 3,£41,18,8:FOR ATi TO 18:NEXT 
а: НЕХТ T:50UND 2,0,8,0:50UND 3,0,8,8 
875 FOR ATA TO 18:READ B:POKE 153648,8 
‘NEXT à:PÜKE 512,8:POKE 512,6:Т-РЕЕК(5 
68)4255*PEEK (561) :РОКЕ 7%27,134 

885 RESTORE i188 

838 GOTO 74 

зва POSITION 5,4:7 H6;"game over": PQ5I 
TION 4,17:7 H6;"HI-SCORE “; HI 

385 POSITION 3,12:? ЕТТІ” 
POSITION 2,12:7 #6; "ROME ШЕГЕНІ" 
318 IF STRIG(B)-B THEM RESTORE 1828:60 
TO 15 

315 FOR 5-8 TO 6:POKE 708,6 

328 NEXT G:G0TO 918 

1080 рата 8,80,8,8,0,8,08,6 

1818 рата 124,254,198,128,128,254,754, 

254 
i&ii 

1828 

1958 

1048 

1958 








254,66,56,66,126,254,58,68 
1,2,4,8,16,32,64,128 
255,255,8,8,8,8,8,8 
12,2,726,28,%0,165,165,66 
25,29,52,87,168,80,88,22 
137,66,32,8,4,28,113,28 
8,8,8,8,4,28,112,28 
8,12,2,236,98,189,165,66 
1898 DATA 12,2,210,28,38,165,165,65 
1188 BATA 120,8,148,8,82,82,82,0, 138,8 
,148,0,89,89,89,98,8,1805,8, 98,0, 185,8, 
188,8,118,118,80,8,8,38,38,0,8, 88,08 


рата 
рата 
рата 
рата 
рата 
i868 РАТА 
1878 SATA 
ieg8 рата 


1118 BATA 8,8,74,74,74,74,74,74,8 


1158 DATA 72,169,196,141,18,212,141,26 
,288,184,64 


SNOW 2-3-4-5 
SNOW 2-3-4-3 





LOGO BY RUTH ELLSWORTH 


TO DOGLEFT 
SETSH 7 

FD 2 

SETSH 6 

FO i 

SETSH 8 

FR 2 

SETSH 6 
JOYSTICK 
ЕИ? 


та DOGRIGHT 
SETSH 3 

FD 2 

SETSH 2 

FO 1 

SETSH 4 

FR 2 

SETSH 2 
JOYSTICK 
END 


TO DOGDOHN 
SETSH 1 

FR 5 
JOYSTICK 
END 


TO DOGUP 
SETSH 5 
FR 5 
JOYSTICK 
END 


TO JOYSTICK 
IF è JOY 8 ) < 8 [STOP] 
SETH 45 * JOY 8 


IF t JOY 8 32 = 8 (CDOGHPI 

IF t JOY @3 = 4 fDOGDOHNI 

IF t J0Y 8 ) 1 IDOGRIGHTI 
IF С JOY 8 ) = 2 IDOGRIGHTI 
IF С JOY 8 ) = 3 IDOGRIGHT] 
IF ¢ JOY 8 ) = 5 I[DOGLEFTI 

IF ¢ JOY 8 2 = 6 IPOGLEFT]I 

IF С JOY 8 3 = 7 ([BOGLEFTI 

END 

TO BEGIN 

0400065 

Pi 

SETSH i 

WHEN 15 [JOYSTICK] 

END 


TO 60 


MAKE "CHAR "5 


it 38 MAKE "DOG (127 127 72 85 28 28 8 28 62 
SETSH 3 52 62 62 62 62 119 1131 

FD 15 MAKE "0062 [12 28 24 38 28 158 148 156 
WAIT i8 198 254 254 254 254 126 115 591 

SETSH 4 MAKE "DOG: [127 127 72 85 28 28 8 28 b 
FD 15 2 62 62 52 52 62 119 1191 

WATT 18 MAKE “0064 [12 28 24 38 156 158 140 23 
SETSH 2 6 254 254 126 126 118 54 51 I] 

FD 15 

HAIT 18 

SETSH 4 

FR 15 

WATT 18 

LT 98 


MAKE “CHAR RC 

IF :CHAR = "G [G0] 

IF :€HAR = "5 [5TARTI 
ЕН? 


TO TURN 
SET5H 2 
HAIT ig 
50 
ЕН? 


TO START 

LOADPOGS 

HT 

Pu 

5ETSH 1 

5T 

MAKE "CHAR RC 

IF :CHAR = “б [TURN] 
END 





то 10400065 

PUTSH 1 [127 127 73 85 28 28 8 28 62 6 

2 62 67 62 62 119 1191 

PUTSH 2 [12 28 24 38 28 158 148 156 19 

В 254 254 254 754 126 115 531 

PUTSH 3 [12 28 24 38 28 38 148 156 198 
254 754 173 115 96 48 481 

РИТЭН 4 [12 28 24 158 156 142 226 252 
254 126 126 118 54 58 I 31 

PUTSH 5 [127 127 93 93 28 28 8 28 52 6 
2 D2 UI Ge Uf 117? 1193 

PUTSH 6 І48 56 24 128 56 128 57 49 12i 
175 127 127 127 126 286 2281 

PHTSH 7 [56 56 24 128 56 121 49 57 125 
127 127 222 286 5 12 121 

PUTSH 8 [48 56 24 128 57 121 43 55 127 
127 126 126 118 188 284 1221 

END 


PASSWORD 15 
(SNOW 2-3-4-5} 
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LISTS 


Lists is a program to be used with data created on a data disk by the 
‘Labels’ program in the March ‘85 issue of A.C.E. Newsletter. It allows 
you to create up to eight individual lists. These lists аге given separate 
names and can be combined or taken away from each other to create 
new lists. Any list can then be printed on labels or as a directory. 

After a little time for initilization, you will be presented with the current 
list names and a menu. ‘N’ allows you to rename a list while ‘A’ or ‘T’ 
permit adding to or taking away from a list. List #0 is made up of all 
entries, so adding list O to any other will produce another list containing 
all entries. Taking list O away from any other will completely clear out 
that list. Other combinations can be made by adding or subtracting one 
list from another. 

The “М” option allows you to examine and change the members of any 
list (except O). You will be asked for a letter where you want to start 
displaying members. A list of 18 code keys will be shown with 8 columns 
indicating which lists contain these members (marked with asterisks). 
A arrow cursor can be run up and down the rows and across the columns 
using the arrow keys. Pressing the spacebar will toggle the member in 
the list at the current cursor location. If you want to see the entire 
member name, press the question mark key (?). 'RETURN' will advance 
to the next 18 members. You may also press any letter key to start 
displaying members with that letter. 'ESC' causes the index to be 
updated and returns you to the menu. 

'Print a list' option asks for a list and asks whether you want labels 
or a directory printed. Labels are the single width 3% X 15/16 inch size 
with tractor feed backing. Be sure to position at the top line of the 1st 
label before starting. 

Unfortunately some changes to the 'Labels' program need to be made 
to produce a data disk to work properly with the sorting procedure in 
this program. Insted of X's we need z's (small letter) written in sectors 
1-32 and 720. The necessary changes in 'Labels' are: 

1) In line 5010: XSS$ -"z" 

2) In line 5020: FREX$ —-"zzzzzz" 

If you have already typed in a bunch of names, you can try to modify 
the data disk you have: Run 'Labels' and hit RESET, Type in the following 
lines: 

О FOR J=1 TO 4096:IF INDEX$S(J,J) -"X" THEN INDEX$(J,J)="2” 

1 NEXT J:STOP 

Type GOTO О and when the process stops you can list INDEX$ to see 
that the changes have been made. If they have then type 5 = 720:GOSUB 
880 to update the index. 

You also need to fill sector 720 with z's by typing in the following in 
immediate mode: 

RECS(1) 2"z":REC$(128) -RECS:REC$(2) - REC$:S = 720:GOSUB 750. 
The data disk should now work properly with the ‘Lists’ program. If you 
haven't started entering names, just create a data disk by going to the 
subroutine at 830 of 'Labels' after making the changes above. 

333€ 4€ 3€ 3€ 3€ 3€ 3E З З ЗЕ WARNING 3t dt de 3E 3€ 3E 3E 9€ 9€ 9€ 9E 9E 3E EF 


There is a major bug in the 'Labels' program. It has to do with the 
situation when a 6 byte index code key crosses one of the 128 byte 
sector boundaries. Since only one sector is saved, only part of this index 
key gets saved and you can't locate the entry again. The answer is to 
save two sectors (unless it is the last one, 32). The Following lines must 
be inserted in the program: 

77 RECS-INDEX$(128*(S-1)2-1,1128* S;GOSUB 750:IF 5-32 THEN 

REC$=TEMP$:RETURN 
78 S=S+1:REC$ =INDEX$(128*(S-1)+1,128*S):GOSUB 750:REC$= 

TEMPS$:RETURN 
88 REC$=IND-9b-EX$(128*(S-1)+1,128*S):GOSUB 750:IF S=32 THEN 

GOSUB 500:RETURN 
89 S=S+1:REC$=INDEX$(128*(S-1)+1,128*S):GOSUB 750:GOSUB 

500:RETURN 
| apologize for any inconvenience this may have caused. 

Stan Ockers 
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SYNPRINT 


(A Printing Utility For SynFile+ Written By Bob Floyd 
For Use Ву SPACE—St. Paul ATARI Computer Enthusiasts) 

This program was written to overcome some limitations in printing 
labels on SynFile+. You can now print labels 1, 2, or 3 across easily and 
save your print format to disk for later use. You can also save your label 
formats for later use. This makes it easy to choose any label format to 
go with any print format. You must have SynFile+ in order to make use 
of this program, although I’m sure modifications are possible for use with 
other programs. 

GETTING STARTED 

SynPrint contains no search capability. You are expected to let 
SynFile+ do the searching. The first thing to do is use the “LIST” option 
of the “REPORTs” function of SynFile+. The best way to do this is to 
type out all of your headings in the order shown on the screen — 
consistency is important. Always do this step the same way every time! 
Next choose the disk output option instead of the printer. Choose 999 
as the printed page length. The title will not matter. Then perform any 
searches that are necessary. It is probably simplest to save your file to 
the same name used by SynFile+. It will receive “TXT” extender 
automatically. 

USING SYNPRINT 

Load SYNPRINT.BAS the way you would any BASIC program. Probably 
your first choice will be “1”, to load your file. A directory will appear with 
all files with a “TXT” extender. Just type in the correct one. SynPrint 
scans the file and extracts the headings to let you know its found 
everything alright. 

Then you can choose option “2”, to load or create a label file. This 
file tells the print routine how to layout your labels. Left margin offset, 
# of columns, # of labels per row, # of lines per label, etc. are supported. 
You should save a label format file for each type of label you use. A disk 
inventory routine makes saving and loading easier. 

Option “3” is for loading or creating print format files. This routine 
is similar to that used in SOFTSIDE MAGAZINE's database. However, 
this is a souped up version with many new capabilities. Basically, you 
must choose from a list of options how to lay out the label. Generally, 
you can choose any combination of the following items: 

String Input—Enter a string from the keyboard to be used in output. 
It may contain printer control codes, but this may confuse output for 
multiple labels across. 

Heading —The heading (field name) of your choice will be printed. 

item —The item (field data) of your choice will be printed. 

Spaces —Output the desired number of spaces. 

Tab — Use this command to tab to the desired column number on the 
label. 

Trailing Blanks — Remove undesired trailing blanks and choose how 
many can be retained. This is handy for printing city, state, etc. Use string 
input for the comma between city and state. This option can also add 
spaces if necessary. 

Leading Blanks — Remove undesired leading blanks on next item. Again, 
a chosen number of leading blanks can be left. If a large number of 
leading blanks are chosen, some of the characters may be lost off the 
end of the item. The "leading blanks" option is useful for right justified 
fields (lookup tables are right justified). 

Printer Codes —You can choose from the following printer codes 
assuming your printer provides these capabilities: underlined, enlarged, 
double strike, italics, user defined, and 10, 12 or 17 characters per inch 
lie., font width). The only rules are that font width changes, if used, 
must be the first command for a given line. This is also true for enlarged 
text on/off commands. If both are used, the font width must be first. 
The program prevents incorrect entries. SynPrint is currently set up for 
NEC 8023A/C and Prowriter control codes. These codes can be easily 
changed for various printers by altering lines 1210 to 1220 of the 
program. The variables should be self explanatory. It is best to set 
unuseable codes to equal “”, a null string. 

It is best to plan out your commands for the print format routine. It 
is easy to make a mistake, so a written copy of your commands helps 
to get it right the next try. A disk inventory helps in saving and loading 
your print format files. 

Option 4 is for printing. The ability to pause or abort is built into the 
routine. 

CONCLUSION 

SynPrint is reasonably fast, but not like lightning. Care has been taken 
to keep all math as integers so it could be compiled. | have not tried this 
yet, but expect it to work. | prefer the uncompiled speed for ease in 
pausing and aborted. Also, if you get into trouble and hit the "break" 
key, you can re-enter the program safely by typing “GOTO 140”. If you 
have any questions or embellishments, you can contact me at 1193 
Churchill St., St. Paul, MN 55103, (612)-487-2627. 


RAMTALKER UPDATE 


(Reprint: STATUS, Feb. 1985) 
(This improvement permits XL and XE users to use RamrTalker. — Ed.) 

It’s time to improve RamTalker. We formerly had an elementary and 
wrong plotting routine for the sound waveforms. The routine did not plot 
Frequency vs. Time as | stated, but rather Time vs. Amplitude and 
Frequency. Trying to plot three values on two axes doesn't always work, 
so this month's program addition will be a new plotting routine in three 
dimensions. 

The routine asks you which section of sound you want to see. Since 
the 3D plot takes up more room on the screen, it is not possible to put 
all 7 seconds worth of sound on the screen at one time. After you tell 
the program which section to display, it begins to fill the three axis graph 
on the screen. Each line on the time axis represents 1/20 of a second; 
the height of the peak represents how many times (frequency) the 
volume level (amplitude 0-255, top of screen to bottom) occurs at the 
instant of time. 

To place the new routine into RamTalker, follow these steps: 

1. Type in the listing. This listing also changes the port to use to Port 
2, so everyone can now enjoy Ramfalker; 

2. After typing the lines, LIST them to disk or cassette as, LIST"D:FIX" 
or LIST’e”: 

З. Load in the earlier Ramfalker; 

4. Delete these lines: 610, 620, 630, 640, 650, 660, 670, 680, 710, 
720, 730, 740, 750, 760, 770, 780, 790; 

5. ENTER the new listing from disk or cassette; 

6. Now SAVE the newly merged program to disk or cassette. 

— Randy Holmes 


RGB UPDATE 


The May, 1985 issue of the Bay Area Atari User Group Newsletter 
contains information from Arthur Blomseth, 16987 Frank Ave., Los Gatos, 
CA 95051. He had to modify the RGB conversion to use his IBM 
compatible RGB monitor with the Atari. 

He added a pot in the SYNC circuit, changed the sync transistor from 
a 2N2222 to a 2N2907 and referenced all output lines to ground. 


ERACE DISK No. 9 


SPANISH1, SPANISH2, ITALIAN1 and ITALIAN2 are Four language 
programs. 2 are in Spanish/English and the other two are in 
Italian/English. Both programs allows translation both ways. Spanish and 
Italian 1 are multiple choice where as Spanish and Italian 2 answers’ 
are typed in. 

WORLDCAP & CAPWORLD: These geographical tests have 161 
independent nations to tease your memory. There are Direct Answers 
(CAPWORLD) and Multiple Choice (WORLDCAP). 

ASTROMATH, From the Best of ACE #10. Instead of finding the final 
product, you find the missing number. Uses the joystick & tigger to shoot 
down the correct number. 


ERACE DISK No. 10 


STARBIRD, From Paul Freeman. This program lets you improve your 
typing skills while having fun. 

CRICKET, From England's Page 6 by Phil Griffen. This unusual math 
game plays a game of England's baseball while answering question of 
adding, subtract and multiplication. 

MAGICBOA.RD, A multiplication game. Instruction are included. 
Messages occur on the blackboard telling if THE answer is correct or 
wrong. 

UNSCRMB1, UNSCRMB2, & UNSCRMB3. Three games from John 
Kelley. The object is to unscramble the letters to spell the word correctly. 

SPELLBOU.ND By Sydney H. Brown. An interesting version of 
hangman. It plays as a tug of war with a rope between the right- and 
wrong- lettered teams. 

FORKLIFT By Stan Ockers. Take 3 rhyming words from a pile and stack 
them in a pile on the right. 

FLASHO BY Jim A. Carr. The object of Flasho is to help memorize the 
multiplication facts. The name Flasho comes from the flashing 'O' that 
is positioned by the joystick to select the answer. 

— Nora F. Young 
ERACE SIG Editor 


15 


ACE LIBRARY 


Two disks which may be of interest to Basic Programers and Koala 
Pad artists contain excellent Utilities written by Bob Floyd and Paul 
Freeman respectively. 

Bob Floyd’s Disk is a program “Title” program enabling the user to 
easily add a MicroPainter/Koala screen and supplement it with Scrolling 
Text, Large text, Color Changes, and “the ATari Rainbow” in the user's 
choice of color register. 

This program, entitled THE BEAR ESSENTIALS, comes with full 
documentation on disk as well as routines to incorporate the programs 
into the user's program choice of FORTH and/or BASIC. 

The second disk is full of routines by Paul Freeman. It includes some 
special Koala loaders and Picture Dumps as well as a Utility to 
superimpose an unlimited number of Koala pictures. 

Also on this disk is a special Title generating program for the Basic 
Programer ... and a great program for showing Koala/Micropainter 
Pictures containing user adjustable parameters. This latter program is 
the best all around "slide show” program | have used. 

Both of these disks are excellent and worthy additions to the ACE 
Library. 

— Graham Smith 


VP RAMBLINGS 


AS | write this there still aren't any STs. We have heard from a lot of 
people as to when they will be out, but so far all of the predictions have 
proven to be false. | think we will just have to wait until the powers that 
be decide to get them to market and in what form. So hang in there all 
you people who want one your day is coming. 

If you have gone down to your local software store you have probably 
found out there isn't much new in software for the Atari. It seems most 
of the software people are waiting for the STs. This is too bad because 
they are forgetting about all us users with plain old 400, 800, XL and 
XE machines. This is a big market which hasn't been used up and still 
will buy software if it is out there. My next thought is that if you were 
to write to some of the software companies and tell them you are waiting 
maybe they will get it in their heads that we do want new products and 
they just might start to produce again. Maybe? 

If some of you have nothing better to do you might also write me and 
let me know what you think are the 10 best programs you own and why. 
If you are a little lazy just tell the the 10 best. | want to know what you 
think are the best programs and also what you the reader likes so | can 
write about programs which are of interest to you and not just what 
comes along or is just of interest to me. 

— LARRY GOLD 


SNOW 2-3-4-5 


Atari Computer Enthusiasts 


A.C.E. is an independent, non-profit and tax exempt computer club and 
user’s group with no connection to Atari Corp. We are a group interested 
in educating our members in the use of the Atari Computer and in giving 
the latest News, Reviews and Rumors. 


All our articles, reviews and programs come from you, our members. 


Our membership is world-wide; membership fees include the А.С.Е. 
Newsletter. Dues are $14 a year for U.S., and $24 a year Overseas Airmail 
and include about 10 issues a year of the ACE Newsletter. 
Subscription Dep't: 3662 Vine Maple Dr., Eugene, OR 97405. 


**President— Dick Barkley, 2907 Wingate, Eugene, OR 97405 
503-344-5843 

Vice Pres-Larry Gold, 1927 McLean Blvd., Eugene, Or 97405 
503-686-1490 

Librarians-Ron and Aaron Ness, 374 Blackfoot, Eugene, Or 97404 
(503)689-7106. 

Mike Dunn, 3662 Vine Maple Dr., Eugene, Or 97405 
503-344-6193 

Jim Bumpas, 4405 Dillard Rd., Eugene, Or 97405 
503-484-9925 

E.R.A.C.E. (Education SIG Editor)-Nora Young, 105 Hansen Lane, Eugene, 
Or 97404 /503-688-1458 


Editors — 


Send 50c stamps or coin ($1 overseas) to the Ness’ for the new, updated 
ACE Library List-new in May 84 ! 


Bulletin Board 
(503) 343-4352 


On line 24 hours a day, except for servicing and updating. Consists of 
a Tara equipped 48K Atari 400 with a TARA keyboard, 2 double-density 
double sided disk drives, an Epson МХ80 printer, a MicroBits 1100E 
Modem; running the FoReM Bulletin Board software distributed by 
MicroBits. 


Best of ACE books 


Volume 1 contains bound issues of the ACE Newsletter from the first 
issue, Oct 81 to June of 1982 


Volume 2 covers July 1982 to June 1983 
Only $12 each ($2 extra for Airmail). Available only from: 
George Suetsugu 


45-602 Apuapu St 
Kanoehe, HI 96744 
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TYPESETTING 
FROM YOUR COMPUTER 


ATARI OWNERS: If you.have a modem, text editor, and com- 
munications program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes “on line’ 
And it's easy to encode your copy with the few typesetting 
commands you need. 
COMPLETE CONFIDENTIALITY GUARANTEED 
— Bonded for your protection — 
PUBLICATION DESIGN, EDITING, & PRODUCTION 


editing & Design Services 


30 East 13th Avenue Eugene, Oregon 97401 
Phone 503/683-2657 


SortFinder 1.2 
A composite index of Atari related articles from 5 popular computer 
periodicals from Apr ‘81 to June "83, including ACE. Only $6 for ACE 


member from: 


Jim Carr, Valley Soft 
2660 S.W. DeArmond 
Corvallis, OR 97333 


